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Abstract 

Kleisli  categories  over  monads  have  been  used  in  denotational  semantics  to  describe  functional 
languages  using  various  notions  of  computations  as  values.  Kleisli  categories  over  comonads 
have  also  been  used  to  describe  intensional  semantics  rather  than  extensional.  This  paper  explores 
the  possibilities  of  combining  monads  and  comonads  to  obtain  an  intensional  semantics  using 
computations  as  values.  We  give  three  alternative  ways  to  combine  the  two  and  explore  which 
apply  to  known  monads  and  comonads  of  interest  We  will  also  look  at  various  intensional 
semantics  for  an  example  programming  language  that  uses  monads  for  computations  and  compare 
them  to  the  original  extensional  semantics. 
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1.  Introduction 


Traditionally  most  denotational  semantic  interpretations  of  a  functional  programming  language  interpret  a 
program  as  a  function  from  environments  to  values.  Since  these  semantics  focus  exclusively  on  input-output, 
or  extensional  behavior,  they  cannot  easily  be  used  to  examine  intensional  properties  of  programs,  such  as 
order  of  evaluation  or  complexity.  Also,  since  they  typically  use  simple  values,  it  is  difficult  to  extend 
them  to  reason  about  programming  languages  with  non-functional  elements  such  as  nondeterminism,  error 
handling,  and  assignments. 

When  adding  such  features  to  a  language,  originally  the  denotational  semantics  was  changed  on  a 
case-by-case  basis,  by  adding  new  “values”  to  represent  invalid  results  or  by  changing  the  structure  of  the 
values,  such  as  using  sets  of  values  for  non-deterministic  results.  Moggi  in  [14]  showed  that  many  of  these 
techniques  can  be  described  uniformly  using  an  algebraic  structure  in  category  theory  called  a  monad.  With 
a  monad,  one  can  develop  a  formal  semantics  using  category  theory  for  a  variety  of  functional  languages 
that  also  contain  many  non-functional  elements. 

There  has  been  some  work  examining  intensional  properties  for  functional  languages.  Berry  and  Curien 
[5]  developed  a  semantics  using  the  cartesian  closed  category  of  concrete  data  structures  and  sequential 
algorithms,  which  include  information  on  the  order  of  evaluation  as  well  as  the  final  value.  Brookes  and 
Geva  [6]  looked  at  expanding  Berry  and  Omen’s  results  to  parallel  computation  as  well  as  sequential,  and 
developed  general  notion  of  intensional  semantics  using  comonads. 

This  paper  explores  the  possibilities  of  combining  both  methods:  using  comonads  to  examine  the 
intensional  properties  of  programs  whose  extensional  properties  are  modeled  by  means  of  a  monad.  Section  2 
defines  and  gives  notation  for  many  of  the  concepts  contained  in  this  paper.  It  is  assumed  that  the  reader  has  a 
general  knowledge  of  category  theory  and  domains.  Sections  3  and  4  define  monads  and  comonads  and  give 
examples  that  have  been  useful  for  examining  programs.  The  monads  and  comonads  are  typically  defined 
in  as  general  a  fashion  as  possible,  with  examples  given  in  specific  categories,  usually  Cont,  the  category 
of  Scott  domains  and  continuous  functions.  Section  5  describes  the  formation  of  the  Kleisli  categories 
from  comonads  or  monads.  Sections  6  and  7  describe  ways  to  combine  comonads  and  monads  (see  [4]) 
and  examines  how  they  work  with  the  examples  given  earlier.  The  last  section  then  looks  at  a  simple 
programming  language  from  [14]  and  at  various  semantics  using  comonads  and  monads  together. 


2.  Preliminary  definitions  and  notational  conventions 


2.1.  Category  theory 

There  are  many  books  containing  the  basic  categorical  concepts  used  in  this  paper.  The  technical  report  [15] 
is  a  good  introduction,  and  [3]  is  aimed  for  computer  scientists. 

A  category  has  binary  products  if  for  each  pair  of  objects  A  and  B  there  is  an  objects  x  B  with  projection 
morphisms  ir\  :  A  x  B  —  A  and  irj  :  A  x  B  —  B  such  that  for  all  morphisms  /  :  C  —  A  and  g  :  C  —  B. 
there  is  a  unique  morphism  (f  ,g)  from  C  to  A  x  B  satisfying  7T|  o  (f  .g)  =/  and  iio(f,g)  =  g.  For  all 
morphisms  /  :  A  —  C  and  g  :  B  —  D,  we  define/  xg-.AxB  —  CxDlobeif  oxy.go  in). 

Similarly  a  category  has  binary  coproducts  if  for  every  pair  of  objects  A  and  B.  there  is  an  object  A  +  B 
and  a  pair  of  injection  morphisms  l\  :  A  — ►  A  +  Band  12  :  B  —  A  +B,  such  that  for  all  morphisms/  :  A  —  C 
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and#  :  B  —  C,  there  is  a  unique  morphism  [f,g]  fromA+B  to  C  satisfying  [/\g]ot|  =/  and  \f  .g]oi2  =  g. 
For  all  morphisms/  :  A  —  C  and#  :  B  —  D,we  define  /  +g  :  A  +B  —■  C  +  D  to  be  [t(  of  ,i2  o  g]. 

An  object  1  of  a  category  is  terminal  if  for  every  object  A,  there  exists  a  unique  morphism,  denoted  !*, 
from  A  to  1. 

A  category  is  cartesian  closed  if  it  has  binary  products,  a  terminal  object,  and  if  for  each  pair  of  objects 
A  and  B  there  is  an  exponentiation  object  [A  —  B]  and  a  morphism  appA  B  :  [A  —  B)  x  A  —  C  such 
that  for  all  morphisms /  :  C  x  A  —  B,  there  is  a  unique  morphism  curry(/ )  :  C  —  [A  —  B]  satisfying 
/  =  app^  o  (curry (f)  x  id*).  Here,  as  usual,  id*  denotes  the  identity  morphism  for  A.  Given  a  morphism 
g  :  C  -*■  [A  —  B]  we  define  uncurry(g) :  C  x  A  —  B  to  be  app^  B  o  (g  x  id*). 

A  cartesian  closed  category  is  set-like  if  its  objects  are  sets,  its  morphisms  are  functions,  its  products  are 
the  usual  cartesian  products  of  sets,  exponentiation  objects  [A  —  B]  are  subsets  of  the  set  of  functions  from 
A  to  B,  and  application  is  the  standard  function  application. 


2.2.  Partial  orders 

The  definitions  for  domains  and  cpo’s  in  this  section  come  primarily  from  [10];  the  discussion  on  Plotkin 
orders  it  taken  out  of  [9]. 

A  poset  is  a  set  D  with  a  partial  order  <D,  i.e.  a  binary  relation  that  is  reflexive,  transitive,  and  anti¬ 
symmetric.  A  subset  X  of  a  poset  is  directed  if  every  finite  subset  of  X  has  an  upper  bound  in  X.  A  partial 
order  (D,  <°)  is  directed  complete  if  for  every  directed  set  X  C  D,  the  least  upper  bound  of  X,  denoted  UX, 
exists  in  D.  A  partial  order  is  pointed  if  it  has  a  least  element,  usually  denoted  J_.  A  cpo  is  a  pointed  directed 
complete  partial  order. 

A  subset  X  of  a  poset  is  consistent  or  bounded  if  it  has  an  upper  bound.  A  partial  order  is  bounded- 
complete  if  every  consistent  set  X  has  a  least  upper  bound.  In  a  bounded-complete  poset,  every  pair  of 
elements  x.y  with  a  lower  bound  has  a  greatest  lower  bound,  written  as  x  (1  y. 

An  element  A:  in  a  cpo  D  is  compact  (also  called  finite  or  isolated)  if  for  every  directed  set  X  such  that 
k  <D  UX,  k  is  less  than  or  equal  to  some  element  in  X.  The  set  of  compact  elements  of  D  is  written  as 
K(D).  A  cpo  D  is  algebraic  if  for  every  x  6  D,  the  set  {k  e  K{D)  |  k  <D  x)  is  directed  and  its  least  upper 
bound  is  jc.  A  cpo  D  is  uj -algebraic  [9]  if  it  is  algebraic  and  the  set  K(D)  is  countable.  A  Scott  domain  is  a 
bounded-complete,  w-algebraic  cpo.  In  this  paper  we  will  often  use  domain  for  Scott  domain. 

A  bc-domain  is  an  algebraic  bounded-complete  cpo.  A  be -domain  is  distributive  if  for  all  consistent 
pairs  of  elements  y  and  z  and  all  elements  x  we  have  that  x  n  (y  u  z)  =  (jc  (1  y)  u  (x  n  <:).  An  algebraic  cpo 
has  property  I  if  for  each  element  x  there  are  only  finitely  many  compact  elements  below  it.  A  di-domain  is 
a  distributive  bc-domain  that  has  property  I. 

A  subset  N  of  a  poset  A  is  normal  if  for  every  x  e  A,  the  set  N  Pi  { v  e  A  |  y  <A  r}  is  directed.  A  poset 
A  is  a  Plotkin  order  if  for  every  finite  subset  X  of  A,  there  is  a  finite  normal  subset  N  of  A  with  X  C  N.  A 
bifinite  domain  is  an  tv-algebraic  cpo  D  such  that  K(D)  is  a  Plotkin  order. 

A  function/  is  monotone \if{x)  <  f(y)  whenever  x  <  y.  A  function  is  continuous  if  it  is  monotone  and 
preserves  least  upper  bounds  of  directed  sets.  A  function  is  strict  if  it  maps  least  dements  to  least  elements. 
A  continuous  function /  :  A  -*  B  is  stable  if  for  all  b  <  f  (a)  the  set  {a'  <  a  |  b  <  f  (o')}  has  a  least  element, 
represented  as  M{f,a,b).  Given  two  functions  f  \  and  / 2  from  A  to  B,  we  define  the  pointwise  ordering, 
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<A~B  such  that/i  <A~B  f  2  if  for  all  x  e  A,f  \{x)  <B  f  2(x).  We  also  define  the  stable  ordering,  <A~B  such 
that/i  <*~~B  f  z  if/i  <A~B  fz  and  for  all  b  <f\(a),  M(f\,a,b)  =  M(fz,a,b). 

Given  two  posetsDi  and  Do,  their  separated  sum  D\+Di  is  adomainconsistingof  the  set  {(l,.ci)  \x\  €  D\  }(J 
{(2,jc2)  |  X2  e  £>2}  U  {-L}  with  the  ordering  <°l+°2  defined  by  (/, jc)  <D|+°2  (i.x')  whenever  x  <D'  x! 

(i  =  1  or  2)  and  for  all  y  e  D\  +  Dz,  1  <D'+°2  y.  The  coalesced  sum  D\  -f  Dz  of  D\  and  Dz  is 
CD  1  -  {-Lo,})  +  (D2  -  {-Ld:})- 


2  J.  Specific  categories 

The  categories  used  for  the  examples  in  this  paper  will  generally  be  drawn  from  the  following  list: 


Set:  The  category  of  sets  and  functions. 

Cont:  The  category  of  Scott  domains  and  continuous  functions. 

Conts:  The  category  of  Scott  domains  and  strict  continuous  functions. 

Bif:  The  category  of  bifinite  domains  and  continuous  functions.  The  only  interest  in  this  category  is  that 
bifinite  domains  are  closed  under  the  Plotkin  power  domain  (see  section  3.5),  but  Scott  domains  are 
not  [9], 

dl:  The  category  of  di-domains  and  stable  functions,  stably  ordered. 


All  the  categories  listed  above  are  set-like,  except  for  Conts  which  is  not  cartesian  closed  (since  currying 
does  not  preserve  strictness).  Virtually  all  of  the  examples  that  use  Cont  can  be  applied  to  any  cartesian 
closed  category  of  cpo’s  and  continuous  functions,  and  most  can  be  applied  to  any  set-like  category. 


3.  Monads 

Definition  1  A  monad  on  a  category  C,  ( T ,  77,/i)  is  a  functor,  T :  C  —  C,  with  two  natural  transformations, 
77 :  /  T  and  /x  :  T2  T,  satisfying  the  following  conditions  for  all  objects  A  of  C: 


•  Ha  0  hta  =  Va  0  Tha 

•  Ha  0  t)ta  =  Va°  Tt]a  =  idr/t 


An  alternative  form  is  a  Kleisli  triple,  (T,  77,  _*),  where  T  is  a  function  from  objects  to  objects,  for  each 
object  A,  rjA  is  a  morphism  from  A  to  TA,  and  for  all  morphisms /  :  A  —  TB,f‘  is  a  morphism  from  TA  to 
TB,  all  satisfying  the  three  conditions  below: 


•f’or,A=f 
•77 a  =  idr/t 
•  (**o/)*=g*o/*. 
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The  two  forms  are  equivalent;  for  any  a  monad  (T.  r there  is  a  Kleisli  triple  (T,  rj,  _*)  where  T  is  the 
restriction  of  the  functor  T  to  objects,  tj  is  unchanged,  and  for  all/  :  A  —  TB,f’  =  fig  oTf .  Also  for  all 
Kleisli  triples  { T ,  77,  -*),  there  is  a  monad  ( T,tj,h ),  where  7/  =  (77  o/)*,  and  ft  =  idf^. 


3.1.  Identity  monad 

An  obvious  monad  is  the  identity  monad  (/,  id,  id),  where  /  is  the  identity  functor,  and  the  natural  transfer 
mations  are  identity  morphisms. 


3.2. 

In  the 


Lifting 

category  Cont,  there  is  a  monad  (L.  up.  down)  where 

For  all  objects  A,  LA  =  A  U  { iu),  where  iu  4  A  is  a  new 
For  all  morphisms  (continuous  functions) /  :  A  —  B,Lf  (x) 
For  all  objects  A,  up4  :  A  —  LA  is  the  inclusion  function 
For  all  objects  A,  ddwnA  :  L?A  — *  LA  is  down^(x)  = 


least  element, 

_  f  -Llb  x  =  Lla 
(  /  (x)  otherwise 


x  =  1-L2a 
otherwise 


Lifting  can  be  used  (see  [14])  to  model  partiality  in  programming  languages,  with  the  new  bottom  element 
representing  divergence. 


3  J.  Coproducts,  Disjoint  Sums,  and  Separated  Sums 

In  any  category  C  with  finite  coproducts,  and  a  distinguished  object  E,  there  is  a  monad  ( E .  q.  ft)  such  that 
•  For  all  objects  A,  EA  =  A  +  E. 
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•  For  all/  :  A  — *  B,Ef  :  A  +  E  —  B  +  E  is/  +  idf 

•  For  all  objects  A,  tja  :  A  — *  A  +  £  is  i  i ,  the  corresponding  coproduct  injection  morphism. 

•  For  all  objects  A,  pa  :  (A  +  £)  +  £  —  A  +  E  is  [id^.  ii]. 


This  construction  also  defines  a  monad  when  using  separated  sums  in  Cont,  even  though  they  do  not 
satisfy  the  requirements  for  a  coproduct  (the  constructor  is  not  unique  for  separated  sums). 

Coproducts  are  typically  (see  [14]  and  [18])  used  to  model  exceptional  handling,  where  E  represent  a  set 
of  errors  or  exceptions. 

As  an  example,  in  Cont,  let  £  be  the  singleton  set  {err}.  Then  the  monad  (£.  7],p)  looks  like 


•  For  all  domains  A,  EA  =  {(l,a)  \a  e  A}u{{2,  err)}u{-L}  with  the  standard  separated  sum  ordering 

•  For  all  continuous  functions  /  :  A  —  B 


Ef(x)={ 


<!,/(«» 

<2.  err) 


r  =  (l.a) 
x=  (2.  err) 
x=  ± 


For  all  domains  A, 
For  all  domains  A, 


lA(a)  =  ( 

fXA  '  (A  + 


\,a) 

£)  +  £  —  (A  + 
Pa(x)  =  I 


£)  is  defined  as 

y  x  =  {\ -y) 

(2.  err)  x=(2,  err) 


{  -L  x  =  L 


If  we  look  at  separated  sums  and  lifting  on  predomains  (domains  that  are  not  necessarily  pointed),  then 
lifting  is  a  specific  kind  of  separated  sum,  namely  LA  -  A  +  { }.  In  particular  any  property  that  is  true  of  all 
separated  sums  is  also  true  of  all  lifted  domains,  and  if  a  property  fails  to  hold  for  lifted  domains,  it  also  fails 
to  hold  for  separated  sums. 


3.4.  Products 

Let  C  be  any  category  with  binary  products  and  a  terminal  object.  Then  an  object  A  is  a  monoid  in  C,  if  there 
exist  morphisms  e  :  1  — -  X  and  m  :  X  x  X  —  X  such  that 

•  (mo  idx)  x  e  =  7Ti, 

•  mo  (e  x  idx)  =  ^2.  and 

•  m  o  (m  x  idx)  0  <*x,x,x  =  m  o  idx  x  m,  where  oa.b.c  *s  the  natural  isomorphism  from  A  x  (B  x  O  to 
(A  x  B)  x  C. 

Given  a  monoid  X,  there  is  then  a  monad  (X,  77,  p)  defined  as 
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X  x  (X  x  X)  — Y—  —  ■—  X  x  X 

«x.x,x 

(X  x  X)  x  X  |  m 

m  x  id* 

Xx  X  — 


m 


Figure  2:  Identity  and  Associativity  properties  of  a  monoid 

•  For  all  objects  A,  XA  =  A  x  X. 

•  For  all /  :  A  —*  B,Xf  =/  x  id*. 

•  For  all  objects  A,  ^  :  A  -*  A  x  X  is  (id*,  eo\A). 

•  For  all  objects  A,  )iA  ■  (AxX)xX  —  AxXis(id*  x  where  o_1  is  the  natural  isomorphism 

from  (_  x  .)  x  _  to  .  x  (_  x  -). 


Products  can  be  used  to  model  a  simple  form  of  output  processing  ([18])  or  to  calculate  resources  (such 
as  time  or  space)  used  in  a  program  ([11]). 

As  an  example,  let  C  ~  Cont  and  let  X  =  VNat,  the  set  of  natural  numbers  (plus  u;  to  make  it  directed 
complete),  ordered  vertically  with  least  element  0  and  greatest  element  u Let  e  be  the  constant  0  function, 
let  m  be  addition.  Then  VNat  is  a  monoid,  and  the  monad  (X.  77,  n)  looks  like 


•  For  all  domains  A,  XA  =  A  x  VNat 

•  For  all  functions /  :  A  —  B,  Xf  ( a,n )  =  (f(a),n). 

•  For  all  domains  A,  r)A{a)  =  (a,  0) 

•  For  all  domains  A,  ^iA((a,n\),n2)  =  {a,ri\  +/12). 


3.5.  Power  Sets  and  Power  Domains 

In  the  category  Set  the  power  set  constructor  forms  a  monad  {V,  { -  } ,  (J)  where 

•  For  all  sets  A,  VA  is  the  power  set  of  A, 

•  For  all  functions /  :  A  —  B  and  all  X  €  VA,  Vf  (X)  =  {f(x)  |  x  e  X}. 

•  {-}:/  —  P  forms  singleton  sets  from  elements 

•  U  :  P2  P 's  set  union 


6 


Thus  we  can  model  nondeterminism  ([14])  by  having  the  result  of  a  program  be  a  set  of  possible  final 
values. 

To  do  the  same  in  Cont,  however,  we  need  to  form  domains  out  of  power  sets,  in  particular  we  need  a 
partial  order  on  the  sets.  Since  we  generally  want  to  make  use  of  the  ordering  in  the  underlying  set,  using  set 
inclusion  as  the  partial  order  is  insufficient.  There  are  three  orderings  typically  used  for  power  set  domains 
(see  [9]): 

Hoare  or  lower  ordering:  u  C5  v  if  V*  e  u,  3y  €  v  such  that  .r  <  y. 

Smyth  or  upper  ordering:  u  C3  v  if  Vy  s  v.3x  e  u  such  that*  <  y. 

Plotkin  or  convex  ordering:  u  C3  v  if  u  C*  v  and  u  C3  v. 


These  orderings  tend  to  form  preorders  instead  of  partial  orders  but,  by  a  construction  taken  from  [9], 
we  can  get  back  a  partial  order. 


Definition  2  An  ideal  over  a  preorder  A  is  a  nonempty  set  a  C  A  that  is  directed  and  downwards  closed. 

def 

An  ideal  u  is  a  principal  ideal  if  u  =  [a  -  {b\b  <  a]  for  some  a  e  A.  Idl(A)  is  the  poset  of  all  ideals  in  A, 
ordered  by  inclusion. 


Theorem  1  [9]  For  all  preorders  A,  Idl(A)  is  an  algebraic  cpo.  with  compact  elements  being  the  principal 
ideals. 

Thus  for  any  algebraic  cpo  A  we  can  form  another  algebraic  cpo,  the  power  domain 

PfA  =  ldl({V;„(K(A)).C^)). 

where  t  €  {M,  S}  refers  to  any  one  of  the  three  preorderings  on  powersets  and  F^n(X)  is  the  set  of  finite, 
non-empty  subsets  of  X.  Thus  an  element  5  €  P^A  is  a  (directed,  downwards  closed)  collection  of  finite  sets 
of  compact  elements  of  A. 

Although  theorem  1  gives  us  an  algebraic  cpo,  what  we  are  looking  for  is  a  Scott  domain.  If  A  is  Scott 
domain,  then  so  are  the  Smyth  and  Hoare  power  domains  P3A  and  F’A.  The  Plotkin  power  domain  PCA, 
however,  may  not  even  be  bounded-complete  (for  example,  consider  P"(Beol  x  Bool),  where  Bool  is  the 
standard  flat  truth  value  domain  {tt,  f  f .  _L}).  While  the  Plotkin  power  domain  of  a  Scott  domain  is  not 
necessarily  a  Scott  domain,  the  Plotkin  power  domain  of  a  bifinite  domain  does  remain  bifinite  (see  [9]). 

All  three  power  domains  can  be  used  to  form  monads  (P*.  {]-]}*,  (+|*)  as  follows: 


•  For  all  domains  A,  and  a  e  A,  Let  {]-(} ^  :  A  —  PM  be  the  function 

Wi  =  {w€  Pfi*n (K(A)) !  3k  6  K(A).k  <A  a  and  w  {k}} 

•  For  all  functions  /  :  A  —  B,  let  P3/  :  P*A  —  P^B  be  defined  as 

P'f(s)  =  U  (<o&* 

{« . . 
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where  for  each  domain  A,  w],  is  the  binary  (associative)  function  from  PM  x  PfA  to  PM  defined  by 

s  ttj,  t  =  {w  e  Pfin(K(A))  j  3  u  e  s.3v  er.wC'uUv} 

Combining  the  above  definitions  gives  us 

Pff(s)  =  \J{w  e  Pfi„(^(B))  I  Va  €  u3ka  e  K(B).ka  <Bf(a)  and  w  Cf  {ka  |as«}} 

u£s 

•  Given  a  domain  A,  1+)^  :  PHp*A)  —  P*A  is  defined  by 

l+)\(s)  =  LKU<“  I  [  a  e  «}  |  m  e  1} 

If  we  only  look  at  compact  elements  and  if  we  have  an/  :  A  —  B  that  preserves  compactness,  then  the 
functions  above  simplify  to 

•  p^  =  {we^n(W,|  wCt  {*}}=[{*}. 

•  (iK)wji  dv)  =l(u  U  v) 

•  Pf/(j{a . .  =[{f  (ax)}  ...W^  |{/'(ai)}  =[{f  (a\). ..  ./(«„)},  i.e.  P'f(\u)  =1  Pf(u). 

3.6.  Exponentiation 

Let  C  be  a  cartesian  closed  category  and  let  V  be  any  object  of  C.  Then  there  is  a  monad  ( V~ .  const,  diag) 
where 

•  For  all  objects /t,  V  ~A  =  [V  —  A] 

•  For  all/  :A  —  B,  V~f  :  [V  —  A]  —  [V  —  B]  is  curry (f  o  appVjA) 

•  For  all  objects/!,  const,*  :  A  —  [V  — >  A]  is  curryOi) 

•  For  all  objects  A,  diag^  :  [V  —  [V  —  /!]]  —  [V  —  /t)  is  curry(appK/1  o  (app^j^,.  x2)) 

In  Cont  the  monad  becomes 

•  For  all  domains  A ,  V~A  is  the  domain  of  all  continuous  functions  from  V  to  A. 

•  For  all  continuous  functions/  :  A -+ B,V~‘f(\v.av)  =  Av.f(av). 

•  For  all  domains  A,  COnst*(a)  =  A v.a. 

•  For  all  domains  A,  diag^fAvi  .Av2.aV|,v2)  =  Av.av,„ 
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Figure  3:  Conditions  for  a  comonad 


4.  Comonads 

A  comonad  in  C  is  a  monad  in  the  opposite  category  Cop,  namely,  it  is  a  functor  G  :  C  —  with  two  natural 
transformations  c  :  G  —  I  and  6  :  G  —  G2  such  that  for  all  objects  A  of  C 


•  (ga  0  -  G(a  o  6a  =  id ga 

•  #GA  0  f>A  -  G6A  0  SA 

A  comonad  also  has  a  form  similar  to  the  Kleisli  triple:  the  Kleisli  cotriple  ( G.  t .  *),  where  O'  is  a  function 
on  objects,  and  for  each  object  A,  cA  is  a  morphism  from  GA  to  ,4,  and  for  each  morphism /  :  GA  —  B.f  * 
is  a  morphism  from  GA  to  GB,  all  satisfying  the  following  conditions: 


•  For  all /  :  GA  —  B,  (B  °f  +  =/ 

•  For  all  objects  A ,  (*A  =  idcA 

•  For  all/  .  GA  —  B  and  g  :  GB  —  C,g+of+  =  (8of')\ 


4.1.  Side  effects 

Let  C  be  any  cartesian  closed  category  and  let  5  be  an  object  in  C.  Then  there  is  a  monad  ( S .  /i)  where 

•  For  all  objects  A,  SA  =  [S  —  (A  x  5)] 

•  For  all  morphisms /  :  A  —  B,Sf  :  [5  —  (/t  x  5)1  —  [5  —  (B  x  5)1  is  curry ((/  x  ids)  0  app.s..4*.0 

•  For  all  objects^,  rjA  '■  A  —  (S  —  (A  x  5)]  is  currydd^xs) 

•  For  all  objects  A,  pA  :[S  —  ([5  —  (A  x  5)]  x  5)]  —  [S  —  (A  x  5)1  is  curry(app5  /4x5  o  apps-  SAxS) 

In  Cont  the  monad  becomes: 
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•  For  all  continuous  functions/  :  A  —  B,  Sf(\s.(a„z,))  =  Xs.(f  (a^),zs) 

•  For  all  domains  A,  rjA(a )  =  Xs.(a.s). 

•  For  all  domains  A,  fj,A(\s.(us,z<))  =  A s.us(zs) 

This  monad  can  be  used  to  model  side  effects  (see  [14]),  where  S  represents  some  internal  state;  a 
computation  takes  an  initial  state  and  returns  a  value  plus  a  new  state. 

4.2.  Product  Comonad 

Let  C  be  a  category  with  binary  products  and  let  X  be  any  object  of  C.  Then  there  is  a  comonad  (X. .  A) 
where 

•  For  all  objects  A,  XA  =  A  x  X 

•  For  all/  :  A  -  B,Xf  =/  x  id*. 

•  For  all  A,  T|  :  A  x  X  —  A  is  the  corresponding  product  projection  morphism. 

•  For  all  objects  A,  SA  :  A  x  X  —  (A  x  X)  x  X  is  (id^x,  7r2);  in  Cont,  6A{a.x)  =  ((a.x).x). 

4.2.1.  Computation  paths:  Exponentiation  comonad 

Let  C  be  a  cartesian  closed  category,  and  let  V  be  a  monoid  in  Z  with  identity  element  e  :  1  —  V  and  binary 
operator  m  :  V  x  V  —  V.  Then  there  is  a  comonad  (V,  val.  pre)  where 

•  For  all  objects  A,  VA  =  [V  —  A] 

•  For  all /  :  A  —  B,Vf  :  [V  —  A]  —  [V  —  B]  is  curry(f  o  appVA  V) 

•  For  all  objects  A,  vaU  ;  [V  — -  A]  —  A  is  appVi4  vo  (id^-eol^) 

•  For  all  objects  A,  pre,,  :  [V  —  A]  —  [V  —  [V  ~  A]]  is  curry(curry(appV4  v  o  (idA  x  m)  o  o~„'  v  v)\ 
where  o"1  :  (_  x  .)  x  .  A  .  x  (_  x  _) 

To  see  the  above  more  clearly,  in  Cont  it  becomes 

•  For  all  objects  A,  VA  is  the  domain  of  continuous  functions  from  V  to  A 

•  For  all  continuous  functions  /  ;  A  —  B,  Vf(\v.av)  =  A v.f  (av). 

•  For  all  objects  A,  vaU(Av.a,)  =  ae. 

•  For  all  objects  A,  pre^fAv.^)  =  A»|.Av2 
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One  possible  monoid  in  Cont  has  V  =  VNat,  e  ~  lu,  and  m  the  greatest  lower  bound  function.  With 
this  monoid  the  monad  becomes  the  path  comonad  mentioned  in  [7],  where  VA  can  be  interpreted  as  a 
non-decreasing  sequence  of  elements  of  A,  Vf  maps  /  onto  the  elements  of  the  sequence,  val  takes  the  value 
of  a  sequence  at  u,  which  by  continuity  is  also  the  least  upper  bound  of  the  elements  of  the  sequence,  and 
pre  returns  the  sequence  of  prefixes  of  a  sequence. 


4.2.2.  Strictly  increasing  paths 

When  using  the  path  comonad  mentioned  above,  where  V  =  VNat,  etc.,  elements  of  VA  can  be  thought  of 
as  sequences  of  construction  steps  used  to  build  a  data  value.  Since  the  sequence  is  not  necessarily  strictly 
increasing,  there  may  be  places  in  the  sequence  where  the  values  remain  unchanged.  To  get  sequences 
where  the  values  always  increase,  we  create  a  variant  of  the  comonad  (V,  val,  pre)  in  Cont  using  strictly 
increasing  paths.  The  resulting  comonad  (Vs,sval,  spre)  is  defined  as  follows: 


•  For  all  domains  A ,  let  V$A  be  the  set  of  finite  or  infinite  strictly  increasing  sequences  in  A.  The 
finite  sequences  are  represented  as  eventually  constant  (infinite)  sequences.  Therefore  we  have  either 
sequences  of  the  form  (an)“=0,  where  for  each  n,  an  <A  art+i ,  or  sequences  of  the  form  ciqci\  . . .  a^~  \  Jy 
where  ao  <a  «i  <a  ■  ■  ■  <a  a/v-  The  ordering  <vsA  is  the  least  partial  ordering  such  that 

flo  •  •  ■  la/V  <  VsA  «o  •  •  ■  «,v- 1  a 

whenever  a  e  VSA  and  aN  <*  ao.  If  we  consider  a  sequence  to  be  a  (stable)  function  from  VNat  to  A. 
then  this  ordering  of  sequences  is  closely  related  to  the  stable  ordering  on  functions. 

•  For  all  continuous  functions/  :  A  —  A\  let  V$f  be  the  least  continuous  function  such  that  for  all 
a,a0.a \  s  A  such  that^o  <a  «i  a°d  for  all  a  e  VSA, 


Vsf(a^) 
Vsf(a0a\a ) 


(f(a)r 

(  (f  (a0))(Vsf(a,a))  /(a0)#/(a,) 
1  V$f  (a  i  a)  f(a0)=f{al) 


The  definition  is  similar  to  the  definition  of  V  on  functions  except  that  any  resulting  duplications  are 
removed. 

•  For  all  domains  A,  svaU(a)  =  =  U^0an. 

•  For  all  domains  A,  spreA(a)  =  ((amirt(j))"0)^o  or  equivalently,  spre^a)  =  (a0 . . .  a,_,af  )^=0. 


5.  Kleisli  Categories 

Given  a  category  C  and  a  monad  (T,  77,  p)  there  is  a  category  A.'(7'),  the  Kleisli  category  of  T.  defined  as 
follows: 

•  The  objects  in  IC( T)  are  the  objects  in  C 

•  A  morphism/  :  A  —  B  in  /C(7j  is  a  morphism/  :  A  —  TB  in  C 
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•  For  all  objects  A  in  fC(T ),  the  identity  morphism  on  A  is  rjA  :  A  —  TA . 


T  T  T 

•  For  all  pairs  of  morphisms  /  :  A  —  B  and  g  :  B  —  C,  their  composition  is  g  o  /  =  jic  o  Tg  of . 
Similarly,  for  a  comonad  { G ,  e,  6),  there  is  a  Kleisli  category  /t(G),  where 

•  The  objects  in  fC(G)  are  the  objects  in  C 

•  A  morphism /  :  A  -*  B  in  /C(G)  is  a  morphism /  :  GA  —  B  in  C 

•  For  all  objects  A  in  fC(G),  its  identity  arrow  is  eA  :  GA  —  A. 

•  For  all  pairs  of  morphisms/  :  A  —  B  and  g  :  B  —  C,  their  composition  is  g  o  /  =  g  o  Gf  o  SA. 

[7]  and  [14]  (and  section  6.1)  show  how  to  obtain  semantic  interpretations  of  languages  using  Kleisli 
categories.  In  particular  the  meaning  of  a  functional  program  becomes  a  morphism  in  the  Kleisli  category, 
and  the  Kleisli  category  composition  rules  are  used  instead  of  composition  in  the  original  category. 


6.  Double  Kleisli  Categories 


The  Kleisli  category  of  a  monad  is  generally  used  to  represent  a  semantic  interpretation  of  a  functional 
language  with  added  non-functional  features.  The  Kleisli  category  of  a  comonad  is  generally  used  to  look 
at  intensional  semantic  interpretations.  In  order  to  combine  the  two,  we  would  like  to  form  from  a  monad 
(7,  rj,  (i)  and  a  comonad  (G,  f,  6 )  in  C  a  category  /C(G,  T)  similar  to  the  Kleisli  categories,  with  objects  in  C, 
and  with  morphisms  of  the  form/  :  GA  —  TB. 

In  order  to  guarantee  that  we  actually  obtain  a  category,  however,  we  need  some  additional  conditions, 
adapted  from  [4]: 


Definition  3  Given  a  monad  (T,r},fj.)  and  a  comonad  (G,  t.  S),  a  distributive  law  of  T  over  G  is  a  natural 
transformation  a  :  GT  —  TG  such  that  the  following  four  identities  hold: 


•  ft  A  0  Gr)A  =  r)GA 

•  TeA  ooA-  iTA 

•  <y A  o  Gha  =  fiGA  o  To A  o  ota 

•  T6a  o  o a  =  tjQA  o  Goa  o  6Ta 


o  is  distributive  with  ri  whenever  the  first  identity  holds.  Similarly  o  is  distributive  with  f  when  the 
second  identity  holds,  and  so  on. 

For  similar  definitions,  see  [4],  which  related  two  monads,  or  [1],  which  related  two  comonads. 
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GTTA  - a*A-  -  7G7A  -ra--  7TGA  GGTA  G<7a  ■  GTGA  -a-A-  -  TGGA 


GTA 


<7/4 


7GA 


GTA 


<T/» 


7ft, 


TGA 


Figure  4:  Distributive  laws 

Theorem  2  Given  a  monad  (T,r],p)  and  a  comonad  (G,e,  6)  in  a  category  C  plus  a  distributive  law  a  of  T 
over  G,  there  is  a  category  K.(G.  T)  defined  as  follows: 


•  The  objects  offC(G,  T)  are  the  objects  ofC. 

G  T 

•  A  morphism  f  :  A  —  B  in  JC(G.  T)  is  a  morphism  f  :  GA  —  TB  in  C. 

G  T 

•  For  each  object  A,  the  identity  morphism  id4 '  on  A  is  rjA  o  eA  :  GA  —  TA. 

G  T  G  T  G  T 

•  For  every  pair  of  morphisms  f  :  A  B  and  g  :  B  —  C,  their  composition,  g  6  / ,  is 

Pc  0  Tg  o  CTfl  o  Gf  O  SA. 


Proof.  The  proof  involves  some  straightforward  diagram  chasing,  shown  in  figures  5  and  6.  Figure  5 
contains  a  diagram  showing  that  idg,r  of=fo  id^’  =  /.  The  upper  part  of  the  diagram  represents  the 
expansion  of  idfl’  of,pBo  Tt]B  °  TeB  o  oB  o  Gf  o  6A,  and  the  lower  part  of  the  diagram  represents  the 

G  T 

expansion  of/  o  idA’  ,  pe°Tf  o<rAo  Gtja  o  TeA  o  SA;  in  the  center  is /. 

G  T  G  T  G  T  G  T 

Figure  6  contains  a  diagram  showing  that  h  6  ( g  6  f)  =  (h  6  g)  6  /,  The  upper  path  represents  the 

G  7*  G  T  G  T  G  7* 

expansion  of  h  6  (g  6  f)  and  the  lower  path  represents  the  expansion  of  {h  6  g)  6  /.  □ 


6.1.  Examples 


We  now  check  all  the  possible  combinations  of  comonads  and  monads  from  our  lists  of  examples  to  see 
whether  the  distributivity  condition  holds.  A  summary  of  the  results  is  in  table  1  on  page  26. 


Figure  5:  Proof  of  the  properties  of  identity  in  /C(G,  T). 

6.1.1.  The  Product  comonad 

A  distributive  law  a  of  any  monad  T  over  the  product  comonad  X  is  a  natural  transformation  from  7"_  x  X  to 
7T(-  x  X).  For  certain  types  of  monads  such  a  distributive  law  is  guaranteed  to  exist: 

Definition  4  Let  C  be  any  category  with  finite  products.  A  monad  (7\  rj,  p)  is  strong  if  there  exists  a  natural 
transformation  r  :  T.  x  _  —  T(.  x  _),  called  a  tensorial strength ,  satisfying  the  following  conditions: 

•  Tit\  o  ta\  =  it\. 

•  tA'Bo(t)A  x  id b)  =  t)Axb- 

•  Maxb  0  Tta#  o  tjA  b  -  ta<b  o  (pA  x  idB). 

•  rAxB,c  0  (rA,fl  X  idc) 0  aTA,B,c  =  TaA,B,c  0  t-a.bxC.  where  again  a  :  .  x  (.  x  x  .)  x  _ 

This  definition  of  strength  is  equivalent  to  the  definition  in  [14],  which  uses  a  natural  transformation 
(:.x7.-^T(.x  .).  It  is  clear  that  given  such  a  t  we  can  get  r  with  rA_B  =  T(tt2,  k\ )  o  tB_A  o  (x2-i n )  and 
similarly  we  can  get  t  from  r. 

Unsurprisingly,  if  (T,  T},gL)  is  strong  then  there  is  a  distributive  law  cr  of  T over  the  product  comonad  X, 
with  <7*  *  tA  x-  Of  course,  determining  the  existence  of  strength  is  in  general  as  difficult  as  determining  the 
existence  of  a  distributive  law  directly.  For  set-like  categories,  however,  there  is  a  simple  test  for  strength: 

Theorem  3  Let  C  be  a  set-like  category,  and  let  (T,  be  a  monad  over  C  such  that  for  each  pair  of 
objects  A  and  B  the  function  =  Xf  .Tf  :  [A  -*■  B]  —  [TA  —  TB]  is  a  morphism  in  C.  Then  ( T ,  t),  p)  is 
strong. 


14 


GA 


Ja _ _  ni 


G  A 


G6a 


2  a  _ §GA _ _  r-ii 


GLA 


G  A 


Gf 


G2f 


GTB  — G2TB  GTGB  -  — ^ GT^C  - 


<tb 

TGB 


TbB 


&GB 


TG2B 


GfJ-c 


GTC 


<7rc 


TGg 


TGTC 


Tac 


t2gc 


T2h 


Bgc 


°C 


TGC 


Th 


r3o  — —  ■■■-  T2D 


Tbd 


t2d 


BD 


Bd 


TD 


Figure  6:  Proof  of  associativity  of  composition  in  K(G.  T) 
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Ta  r  X  idr  TaxBC 

(TA  x  B)  x  C  — — - ^  T(A  x  B)  x  C - T((A  x  B)  x  O 

TnABC 

TAx(BxC) - =-— - ►  r(A  x  (B  x  Cl) 


Figure  7:  Requirements  for  r  to  be  a  tensoria!  strength 
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Proof.  Given  such  a  category,  let  tAib  ~  uncurry(t/4i/4XgoCurry((x2,7ri)))o(7r2,7T1)  =  A(a.b).r(Aa.(a,6))a. 

For  naturality,  given  a  function  f  :  A  —  B  and  a  function  g  :  C  —  D,  we  have  that 

tc,d  °  {Tf  x  g)(a,  c)  =  TC  D(Tf  (a),g(c)) 

=  r(Ab.(b,g(c)))T/(a) 

=  T(\b.{b,g(c))  o  Aa./(a))a 
=  T(\a.(f(a),g(c)))a 
=  W  x  g)o  Aa.(a,c))a 
-  T(f  x  g)oTA<B(a,c) 

The  other  conditions  can  be  shown  in  a  similarly  straightforward  manner.  □ 

All  of  the  monad  examples  given  are  strong  in  Cont  [14].  The  resulting  o  turn  out  to  be: 


Lifting:  oA  :  LA  x  X  —*  L(A  x  X)  is  defined  by  crA( _L,jc)  =  _L  and  fora  e  A ,  crA(a,x )  =  (a.jc). 

Separated  Sums:  aA  :  (A+£)  x  X  -*•  (A  x  X)+Eis  defined  by  crA(n (a), x)  =  L\((a.x)),crA{i2(e),x)  =  12(e), 
and  oA(±,  x)  =  L. 

Products:  oA  :  (A  x  X')  x  X  — *  (A  x  X)  x  X'  is  defined  by  crA((a,x?),x)  =  ((a,x).xL),  where  X denotes  the 
object  from  the  product  comonad,  and  X'  denotes  the  object  from  the  product  monad. 

The  product  monad  is  strong  in  any  category  with  products,  where  oA  =  (rr\  x  id*,  0x1)  is  the 
natural  isomorphism  from  (A  x  X')  x  X  to  (A  x  AT)  x  X'. 

Side  effects:  oA  :  [S  -*  (AxS)]xX  -*•  [S  —  ((A  xX)x  S)]  is  defined  by  oA  ( \s.  (af,z.r),x)  =  Xs.((a„x).zs). 

More  generally,  in  a  cartesian  closed  category  we  have  aA  =  curry^s.*  o  (appM  s  x  id*)  o  3SA.x.s), 
where  0a,b,c  is  the  natural  isomorphism  from  (A  x  B)  x  C  to  (A  x  C)  x  B. 

Power  Sets:  (In  Set)  oA  :  VA  x  X  —  V(A  x  X)  is  defined  by  crA(u.x)  =  {(a..t)  |  x  e  «}. 

Power  Domains:  o\  :  P^A  xA-*  P*(A  x  X)  (for  f  €  {b.  is  defined  by 

o \(s,x)  =  |J{w  |  Va  6  u3ka  <  ( a,x).w  {ka  \  a  e  u}} 

u£s 

For  compact  elements  {[u,k),  cr\([u,k)  =[{(a,£)  j  a  e  «}. 

Exponentiation:  aA  :  [V  —*  A]  x  X  — <•  [V  —  (A  x  AQ]  is  defined  by  <rA(Xv.av,x)  =  A v.{av,x).  A  similar 
definition  holds  for  strict  paths. 

For  all  cartesian  closed  categories  the  exponentiation  monad  is  strong,  with 

oA  =  curry((app4V,  x  id*)  o  3va.x.v) 


6.1.2.  Exponentiation  as  a  monad 

A  comonad  (G,  €.6)  is  strong  if  there  exists  a  natural  transformation  r  :  G.  x  .  —  G(.  x  -)  that  satisfies 
analogous  conditions  to  the  ones  required  for  a  strong  monad  (see  figure  8).  For  all  such  comonads,  there 
exists  a  distributive  law  o  of  the  exponentiation  monad  V~~  over  G,  where  aA  -  curry  (Gappxx  o  tv-ax). 
The  proof  is  analogous  to  the  proof  for  the  product  monad. 
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AxB 


GA 


G2A  x  B - - ►  G(GA  x  B) - - ►  G\a  x  B ) 


SA  x  idB 


xfl 


GAxB 


ta,b 


G(A  x  fl) 


(GA  x  B)  x  C 


rA,B  X  idc 


G(A  x  B)  x  C- 


TAxB,C 


G((A  x  B)  x  C) 


aGA,B,C 


GctA.B.C 


GA  x  (B  x  Q 


tA,BxC 


G(A  x  (B  x  O) 


Figure  8:  Requirements  for  a  strong  comonad 

As  for  strong  monads,  for  set-like  categories  whenever  the  function  g a.b  -  A/  Gf  is  a  morphism  in  that 
category,  then  G  is  strong.  The  resulting  cr  will  be 

curry(uncurry(gv-A,A  °  curry(appX-A  o  <tt2,  tt,)))  o  (t2,»i)) 
i.e.  for  g  6  G[X  -»  A],  a(g)  =  Ax.G(Aa.a(x))g. 

The  comonad  (V,vai,pre)  is  strong  in  both  Cont  and  dl,  with  the  resulting  <r  being  defined  by 
<r(Av.Ajc.av^)  =  Ax.A v.aVyX.  The  comonad  (V5,sval,spre),  however  is  not  strong  in  Cont,  for  the  function 
A f  .Vsf  is  n°t  monotone  when  functions  are  ordered  pointwise  (and  given  a  tensorial  strength  r,  we  can 
derive  as  a  morphism  A i/.Vjf,  with  A f  .Vgf  =  curryfV^app,,  B  o  Vs^i^i)  0  ta.ia—b]  0  (7r2>7ri)))-  The 
product  comonad  is  strong  and  the  a  resulting  from  this  construction  is  identical  to  the  a  mentioned  in  the 
previous  section. 
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6.1.3.  Product  as  a  monad 


For  all  comonads  { G,e,S )  there  is  a  distributive  law  aA  =  (Gir[.ex  o  G 7r2)  (=  (GTrh7r2  o  (AxX))  of  the 
product  monad  X  over  G.  For  example  there  is  a  distributive  law  a  of  X  over  V,  where  for  standard  cartesian 
closed  categories 


<yA  =  (curry(7Ti  o  appy^x^y). ff2  °  3PPvmxx),v  0  (idv(/»xJO!  c°Vmxx))) 


or,  in  Cont, 


<rA(\v.(av,xv))  =  (A  v.av,xe) 

For  the  strictly  increasing  paths  comonad  a  is  the  same  except  that  duplicates  are  removed. 


6.1.4.  Lifting  with  the  path  comonads 

If  we  look  at  the  lifting  monad  ( L ,  up,  down)  with  the  path  comonad  ( V ,  val,  p re),  using  the  monoid  VNat 
( e  =  and  m  =  min)  in  the  category  Cont,  we  see  that  an  element  of  VLA  can  have  one  of  three  forms: 
it  can  be  a  path  a  e  VA,  the  element  _L",  or  of  the  form  ±"a  for  some  path  a  e  VA  and  some  n  >  0.  An 
element  of  LVA  is  either  a  path  a  6  VA  or  1. 

In  order  for  a  natural  transformation  a  to  be  distributive  with  up  we  must  have  that  if  a  e  VA,  crA(a)  = 
aVtfVup^fa))  =  upVi4(a)  =  a.  There  is  no  value,  however,  that  can  be  assigned  to  crA(La)  that  satisfies 
all  distributivity  requirements  without  violating  monotonicity  or  naturality.  For  example,  let  us  look  at 
the  domain  A  =  VNat  and  the  element  10".  Since  cryNatl^)  =  0"  and  i_0"  <  0",  by  monotonicity 
of  <7vNat  we  must  have  that  oviVatf-LO^)  -  which  in  LWNat  means  that  either  avNat( -1-0" )  =  0"  or 
^VNatf-1-0")  = 

If  we  let  crvNatt-1-^)  =  -U  then  o  is  not  distributive  with  val,  since  LvalvNatf^VNatf-LO1"))  = 
LvalvNat(J-)  =  -L  an<f  val;.VNat(-Lf*w)  =  0- 

So  we  must  have  that  <7(1.0")  =  0".  Let  /  :  VNat  —  VNat  be  the  constant  1  function.  Therefore  by 
naturality  of  a  we  have  that 


^VNatf-1-)  =  <TVNat(v'i/  ( -1-0")) 
=  LVf{ay  Nat(l0")) 
=  1" 


However  we  already  know  that  <7VNat(01w)  =  01"-  Thus  we  have  that  ±1“  <  01",  but  <TVNat(ll")  = 
1"  >  crvNat^l")-  So  a  fails  to  be  monotone. 


This  proof  generalizes  to  any  non-trivial  monoid  V  but  not  to  the  strictly  increasing  path  comonad  or  to 
exponentiation  in  the  category  dl.  In  fact  the  natural  transformation  given  by 


<?a(  a)  =  < 


1 

a' 

a 


a  =  X" 

a  =  l"a'  for  some  n  >  0 
otherwise 
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is  a  distributive  law  of  L  'er  V( V  =  VNat)  in  the  category  dl  (oA  is  stable  for  all  dl  domains  A).  When  we 
limit  n  to  1,  a  is  a  distributive  law  of  L  over  Ks. 


6.1.5.  Coproducts 

There  is  no  distributive  law  a  of  the  separated  sum  monad  E  over  the  exponentiation  comonad  V  in  the 
category  Cont,  for  reasons  similar  to  the  ones  above  showing  that  there  is  no  distributive  law  of  the  lifting 
monad  L  over  V.  Again  there  is  again  a  distributive  law  a  of  E  over  Vj  and  a  distributive  law  a  of  E  over  V 
in  dl  (for  the  monoid  VNat),  namely 


<rA(a)  =  { 


1 

*!««>£ 0> 
e(a) 


8  =  1" 

3 n  >  O.a  =  -Ln(i|(o«))"o 
otherwise 


This  particular  function  depends  not  only  on  the  structure  of  the  comonad,  but  also  on  the  structure  of 
the  monoid  and  thus  does  not  generalize  easily. 

For  categories  with  coproducts  and  one  extra  (somewhat  strong)  condition  we  do  get  distributivity: 


Theorem  4  Let  C  be  a  category  with  binary  coproducts,  ( G ,  6, 6)  be  any  comonad  over  C,  and  E  be  some 
object.  Suppose  that  for  each  object  A,  the  object  GA  +  GE  is  naturally  isomorphic  to  G(A  +  E),  with  one 
half  of  the  isomorphism  being  4>a  -  [Gl\a  ,  Gl2e\-  Then  there  is  a  distributive  law  o  of  the  coproduct  monad 
E  over  G,  namely 

a  A  =  (id*  +  (e)  0  <t>A  *  ■ 


Although  the  above  condition  does  not  hold  with  the  comonad  V  in  Cont,  it  does  hold  for  V  in  the 
category  Conti  of  domains  and  strict  continuous  functions  (using  coalesced  sums).  For  set-like  categories, 
the  above  condition  will  hold  primarily  when  the  structure  of  G(A  +  E)  uniformly  consists  of  either  elements 
of  A  or  elements  of  E. 


6.1.6.  Power  Sets  and  Power  Domains  with  the  Path  comonads 

In  the  category  Set  and  for  all  monoids  V,  there  is  a  distributive  law  a  of  the  power  set  monad  V  over  the 
exponentiation  comonad  V,  with  oA  :  ( V  -*•  PA]  —  V[ V  —  A]  defined  by 

cta (X)  =  {a  s  VA  |  Vv  €  V.a(v)  e  X(v)} 


The  equivalent  function  in  Cont  for  the  Hoare  or  Smyth  power  domains,  and  in  Bif  for  the  Plotkin  power 
domain  is 

<rA(s)  =  {w  e  V;n(K(VA))  |  Vv  e  V.{a(v)  |  a  e  w}  €  s(v)} 

For  the  Hoare  or  Smyth  power  domains,  however,  cr  is  not  natural,  and  for  the  Plotkin  power  domain,  it 
is  not  even  monotone.  In  fact  we  can  show  that  for  all  three  power  domains  any  choice  of  o  will  fail  at  least 
one  of  the  conditions  needed  for  distributivity. 
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Theorem  5  In  the  category  Cont,  let  V  be  the  monoid  VNat  with  unit  u ;  and  binary  operator  min.  Then 
there  is  no  distributive  law  of  the  Hoare  power  domain  monad  (PD,  {]— |}b,|+|b)  over  the  path  comonad 

(v,val,pre). 


Proof.  Assume  that  there  exists  an  indexed  collection  of  morphisms  a  such  that  for  each  domain  A, 
crA  :  VP* A  -*  P*VA  and  that  o  is  distributive  with  {]-[}b,  i.e.  for  all  objects  A,  oA  o  V{)-[};{  =  {J-[}^.  We 
will  show  that  there  are  domains  A  and  5,  an  s  e  VP" A,  and  a  continuous  function  f  :  A  —  B  such  that  a  is 
not  natural. 

Let  A  be  the  flat  truth  value  domain  Bool.  Let  5  =  3,  the  domain  of  three  points,  {0,  1,  2},  with 
0  <  1  <  2.  Let /  :  Bool  — *  3  be  the  function  with / (i.)  =  0,/(tt)  =  l,/(f  f)  =  2.  It  is  clear  that /  is 
monotone  on  a  finite  domain  and  therefore  is  also  continuous.  Let  s  =  ( {{tt})(  [{tt.  f  f } )^ .  Then 

ctb  o  vphf  s  =  <Tfl(V5fc/(a{tt})a{tt,  f  f  }r» 

=  cr«((i{/‘(tt)})(  [{f  (tt),/(f  f )})“)  using  the  definition  of  P” 

on  compact  elements 

=  ff«(a{»}xi{i.2}n 

=  *«(({{  1})(1{2})“)  L{2}  =1(1.2} 

=  *a({]l|}^)2|}^) 

=  <rB°V{ )-[}^12“) 

=  fll2w|}tv3  by  assumption 

=  1{12-} 


Now  suppose  that  for  some  s  €  Pb  VBool  we  have  that  P*Vf  {s)  =  ({  12“}.  Given  that  all  elements  of  V3 
are  compact,  we  have  that 


t  { 1 2W  }  =  P*Vf  (s) 

=  Uu6t  lW*)!*e«} 

=  {w  e  V;n(V3)  I  3u  €  J.w  {Vf( X)  \  x  e  «}} 


Thus  we  know  that  for  every  u  €  s,  {Vf(x)  |  x  €  u}  e  P*Vf  (s),  i.e.  {Vf(x)  |  x  e  u}  C?  {12“}.  This 
means  that  for  all  b  e  u,  Vf  (b)  <  12“.  We  also  know  that  since  { 12“}  €  |  {12“}  =  P"  Vf  (s),  there  must 
be  an  u  such  that  {12“}  Cb  {  V/7 (jc)  |  jc  e  u},  which  means  that  there  exists  some  b  €  u  with  12“  <  Vf(b). 
Since  we  also  have  that  Vf( b)  <  12“,  Vf  (b)  must  equal  12“. 

However  the  only  sequence  b  in  Bool  such  that  Vf  (b)  =  12“  is  b  =  tt  f  f“,  which  is  not  an  element  of 
VBool.  Thus  there  is  no  value  can  give  tos  to  make  aB  o  VF^fis)  equal  to  P*Vf  (a^0 0j(s)),  so<r  is  not 
natural.  □ 

Since  the  proof  used  valid  Vj  paths  and  did  not  use  specific  details  of  the  ordering  of  the  paths,  we  also 
have  shown  that 


Corollary  6  In  the  category  Cont,  there  is  no  distributive  law  of  the  Hoare  monad  { P* ,  {] — |} b .(+)'’)  over  the 
strict  paths  comonad  ( V$,  sval,  spre). 
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Also,  by  a  straightforward  extension  of  the  proof  given  above,  we  can  show  that  there  is  no  distributive 
law  for  any  monoid  domain  V  that  contains  two  points  vj  and  vt  with  V|  <v  v2,  i.e.  any  non-trivial  monoid 
domain. 

Theorem  7  In  the  category  Cont  let  V  be  the  monoid  VNat  as  in  Theorem  5.  Then  there  is  no  distributive 
law  of  the  Smyth  power  domain  ( Pt ,  {j-j}3.(+J3)  over  the  path  comonad  (V.  val.  pre). 

Proof.  Assume  that  there  exists  an  indexed  collection  of  functions  a  such  that  for  each  domain  A,  oA  : 
VP* A  —  P^VA.  We  will  show  that  the  o' s  cannot  simultaneously  satisfy  monotonicity,  naturality,  and 
distributivity  with  {j-j}3. 

Let  2  be  the  two  point  set  { 1,  T}  with  1  <  T.  Define/o,/i  :  Bool  —  2  as  follows: 

/o(-L)  =  ± 

/o(tt)  =  T 
/o(ff)=T 

/l(l)  =  L 
f  i(tt)  =  -L 
/l(ff)  =  T 

Let  s  =  ff})(l{ff})w  e  W^Bool.  If  we  assume  that  a  is  distributive  with  i.e.  for  all 

objects  A,  oA  o  Vfl-^  =  {S— OVa,  we  8et  that 

o2  o  vptfos  =  o2( VP'foU  1  { 1 1 ,  f  f  })( | { f  f  } n> 

=  ^2((t{T}n 

=  *2(({iT[}!n 

=  U  T"  j}3  by  assumption 

=  L{T-} 

Given  any  s  €  P*  VBool,  we  see  that 

P*VfQ(s)  =  (Juesh)UjVf(x)ba2 

-  U«ej  H  W (0  1 1  e  «}  since  all  elements  of  V2 
are  compact 

Thus  in  order  for  P^Vf  q(s)  to  be  equal  to  1{TW}  there  must  be  a  «  €  s  with  {T*'}  Cs  {Vf  (x)  |  x  e  u},  i.e. 
for  all  t  e  u,  Tw  <  v2  Vf  (t).  Since  T"  is  the  maximum  element  of  V2,  this  is  the  same  as  saying  that  for  all 
t€u,  V/(t)  =  T" 

Now  the  elements  of  VBool  are  all  of  the  form  ±w,  and  lnf  f1*',  where  n  is  a  non-negative 

integer.  If  we  apply  Vf  o  to  all  of  these  we  find  that 

V/o(±“')  =  Xw 
Vf0(±ntt*)=  1"TW 
V/0(l',ffu')=  ±"T“' 


22 


Therefore  for  all  s  withPaVyo(-s)  =  1  {T^},  either  {tt^},  {f  f^.or  {tt^,  f  fJ}  must  be  ins.  Since  those 
three  sets  are  maximal  in  the  Smyth  preorder,  s  must  therefore  be  either  |{tt"'},  jiff"'}, or  ffw}. 


If  we  assume  a  is  natural  we  have  that  Pa  Vyo(^Bool(s))  =  ^(W’V'ols)),  but  we  know  that  rr2(VP-fo(s)) 
equals  |{T“'}.  Therefore  <7b<m>i(s)  must  be  either  t{ff^},or  |{ttw.  ff1*'} 

Now  with/ 1  we  see  that 


<r2°  vp“/,(s)  =  a2(vp»/1((i{tt.ff})a{ff}r)) 

=  <72((i{±,T})(i{T}n 

=  er2(a{j_})(|{-r})-)  (l  {-L}  =1  {l.T}) 

=  <T2((U  &SK-Q  TJ}“D 

=  -LTL,/ j}3^  assuming  distributivity 


To  get  naturality  with / 1  we  need  PaVf  i(crBoo|(s))  to  equal  1{1T"}  for  one  of  the  possible  values  for 
<7Bool(s)-  However 

/>SV/I(l{tt-})=1{T-} 

V/,(l{ff-})=  l{±-}.and 

none  of  which  are  equal  to  [{XT"}.  □ 

Corollary  8  In  the  category  Cont  there  is  no  distributive  law  of  the  Smyth  monad  { Pc .{]-[}  - .  (+j“ )  over  the 
strict  paths  comonad  { V5,  sval.  spre). 

Proof.  The  proof  for  theorem  7  can  be  adapted  as  a  proof  of  this  corollary,  since  the  proof  used  only  strict 
paths  and  while  the  proof  did  use  the  path  ordering  non-trivially,  ail  statements  using  that  ordering  (namely 
that  Tw,  tt^,  and  f  f"  are  maximal  in  their  respective  domains),  hold  for  the  strict  path  ordering  as  well.  □ 

Even  though  there  is  no  distributive  law  <7,  for  the  Hoare  and  Smyth  domains  there  are  lax  distributive  laws 
cb  and  c3,  in  the  sense  that  for  all  morphisms/  :  A  —  B,  s  e  VPtA  and  s'  e  VPM,  s  :  o  VP3/  (s)  <  PiVf  o^"-{s) 
and  cb  o  VP3/ (s')  >  PbVf  o  </(s')  and  c  satisfies  all  the  other  requirements.  Here  c,  defined  as 

cj(s)  =  {w  €  I  Vv  €  V.lafv)  ]  a  e  vv}  e  s(v)}  (t  €  {i>.  S}) 

is  the  generalization  of  the  distributive  law  for  sets  and  exponentiation  mentioned  at  the  beginning  of  this 
section.  Unfortunately,  the  inequality  in  the  naturality  of  s  translates  to  an  inequality  in  the  associativity  law 
for  the  double  Kleisli  construction,  so  we  cannot  form  a  Kleisli  category  this  way. 

Theorem  9  In  the  category  Bif,  let  V  be  the  monoid  VNat  as  in  Theorem  5.  Then  there  is  no  distributive 
law  of  the  Plotkin  monad  (P5.  {]-f}3-l+)s)  over  the  path  comonad  (V.val.pre). 

Proof.  Assume  that  there  exists  a  natural  transformation  a  :  VP6  —  P3 V  and  that  a  is  distributive  with  both 
{]-[}3  and  val.  We  will  show  that  there  exists  a  bifinite  domain  A  and  elements  S|  and  sj  in  VP^A  such  that 
S|  <  S2  but  <7a(Si)  £  <ja( s2). 


23 


Let  A  be  the  bifinite  domain  consisting  of  the  set  {A-,a\,a2,b\,b2,c\,C2,d\.dz}  with  the  ordering 
as  shown  in  figure  9.  Let  si  =  (l{ai,f>i})(l{a2^2})u/.  and  si  =  (l{ci. rfi})(l{c'2,d2})u'-  Clearly  S)  <  s2. 
We  will  show  that  cr^fsi)  £  crA(S2 ). 


Figure  9:  The  domain  A 

Let /  :  A  —  VNat  be  defined  as  the  least  continuous  function  such  that: 


/(a.)  -f(bi)  =  i  i=l  or  2 
f(c,)=f(d,)  =  i  +  2  i  =  l  or  2 


Figure  10  shows  the  values  of /  for  each  value  in  A. 


4  4 


0 


Figure  10:  Definition  off  on  A 


We  then  have  that: 

tfVNat  0  Vpif(* l)  =  ffVNat (W5*/  ((!{«!•  })( l{a2, b2}D) 

=  ^VNat((l{l})d{2 })") 

=  <TVN.t({Il^fl2r) 

=  {j  12w  &VvNat  assuming  distributivity 


Suppose  there  exists  an  s  e  P^VA  such  that  P^Vffs)  =[{12"}.  Since  the  range  of  Vf  consists  only  of 


24 


compact  elements,  we  have  that 


l{i2“}  =  Ptvf(s) 

=  Uu6,  [{Vf  (a)  |  a  e  «} 

so  for  each  aeswe  must  have  that  {Vf  (a)  |  a  €  u)  C5  {12“},  i.e.  for  all  a  e  u,  a  <  12“.  Since  the  a,'  s 
and  the  b? s  are  incomparable  with  each  other  in  A,  this  means  that  there  exists  au0  C  {nia, .  b\bt)  with 
u  C"  u0.  This  implies  that  s  =}«o-  By  the  assumption  of  naturality  for  o  we  have  l{12“}  =  ^VNat0  VPefs\  = 
P^Vf  o  <taS[  so  =[«o-  If  we  then  use  the  assumption  of  distributi vity  with  val  we  find  that 


P^ValvNatf  l“o)  -  P!ValvNat  0  <*/lS| 
=  valpoVNatsl 

=  {{aiibi} 


The  only  value  of  u o  that  satisfies  the  above  equations  is  u o  =  {axa^.b^ }  =  crAS| . 

By  a  similar  argument  we  can  also  show  that  cr  AS2  =  {cicf.dtdy}-  However,  {aittf .b\b? }  and 
{ciCj  ,d\d^  }  are  incomparable,  so  crA  is  not  monotone.  □ 

This  proof  generalizes  to  any  monoid  with  two  distinct  and  related  elements;  however,  unlike  the  proofs 
for  and  Ph,  it  does  not  apply  to  the  strict  path  comonad  Vs,  since  S|  and  s2  are  incomparable  in  V$A. 
Moreover,  the  a  given  at  the  beginning  of  the  section,  is  also  not  a  distributive  law  over  V5  since  it  not 
distributive  with  {]-[}“.  We  do  not  currently  know  if  such  a  distributive  law  exists. 


6.1.7.  Side  Effects 

If  we  have  a  comonad  {G,(,b)  that  is  both  strong  and  satisfies  the  equation 

ta ,b  0  (idc/t  x  fa) 0  (Gx,,G*2)  =  id ciaxB) 

then  there  will  be  a  distributive  law  a  of  the  side  effect  monad  (S,  /;,/<)  over  G,  with 

aA  =  curry((idG^  x  (S)  o  (Gx,.Gx2)  o  Gapp5/,xV  o  rSA,s) 

This  condition  is  rather  stringent,  essentially  requiring  that  information  lost  when  applying  f  to  GB  is  “stored" 
in  GA  so  that  it  can  later  be  recovered  by  r.  Even  though  this  condition  holds  for  the  product  comonad,  for 
the  exponentiation  comonad  (and  its  variant,  the  strict  path  -monad),  it  is  equivalent  to  requiring  that  the 
monoid  V  is  isomorphic  to  1.  In  fact  the  above  definition  foi  inch  in  Cont  turns  out  to  be 

aA(Xv.\s.(av(s)'ZAs)))  =  as  .s).c<.(s)), 

does  not  distribute  with  fi  for  non-trivial  monoids.  It  is  highly  unlikely  that  any  distributive  law  exists  for  S 
over  any  non-trivial  exponentiation  comonads. 


7.  Non-distributive  double  Kleisli  categories 


An  alternative  method  to  using  both  the  comonad  and  the  monad  simultaneously  is  to  lift  the  comonad  into 
the  Kleisli  category  of  the  monad.  One  way  is  to  let  GA  =  GA  and  then  coerce  the  morphism  part  of  the 
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G(A  X  B)  G(A  x  B) 


(Gir\,Gi r2> 


GA  x  GB  ~r\ - *■  GA  x  B 

Idc4  X  f  B 


Figure  11:  The  condition  ta  b  o  (\6Ga  x  fg)  o  (Gtrt,  G7t2)  =  idcMxS) 


Comonads 


Monads 

Products 

General 

Exponentiation 

Paths  in  Cont 
(V  =  VNat) 

Strict  Paths 
or  Paths  in  dl 

Lifting 

yes 

— 

no 

yes 

Exceptions 

yes 

see  sec.  6.1.5 

no 

yes 

Products 

yes 

yes 

yes 

yes 

Other 

comonad 


if  G(A  +  £)  =  GA  +  G£ 


yes 


Side  Effects 


Power  sets 


yes 


yes 


yes 


yes 


yes 


Exponentiation  yes 


Other  monad  if  strong 


see  section  6.1.7 


no 

no 

no 

no 

no 

j 

see  sec.  6.1.6 

yes 

dl  only 

if  strong 


Table  1 :  Distributive  laws  of  various  monads  over  comonads 


if  strong 


functor  and  the  natural  transformations  into  the  Kleisli  category  K(T)  (see  figure  12).  In  order  to  get  a  valid 
comonad,  however,  we  need  a  distributive  law  <x  of  G  over  T  as  before  and  in  fact  the  resulting  Kleisli 
category  fC(G)  is  identical  to  the  doubly  lifted  Kleisli  category  /C(G,  T).  A  similar  result  holds  if  we  try  to 
lift  the  monad  in  to  the  Kleisli  category  of  the  comonad  as  shown  in  figure  12  (For  similar  constructions, 
see  [4]  and  [  1  ]). 

Since  there  are  several  combinations  of  monad  and  comonads  that  do  not  have  distributive  laws,  we  need 
to  find  a  way  of  combining  them  without  one.  One  possibility  is  to  lift  the  comonad  using  G'A  =  GTA  : 

Theorem  10  Let  ( T ,  r),  _*)  be  a  Kleisli  triple  and  { G ,  f,  -+)  be  a  Kleisli  cotriple  on  a  category  C.  Then  there 


GA  =  GA 

Gf  =  a  a  o  Gf  :  GA  —  TGA 
lA  =  T]A  0  f/t  :  GA  —  TA 
i>A  =  bcM  °^A  ■  GA  —  TG2A 


TA  =  TA 

Tf  =Tf  o  crA  :  GTA  —  TA 
r)A  =  Va  o  (A  :  GA  —  TA 
pA  =  Pa  0  fr-A  '■  GT'A  ~  TA 


Figure  12:  Lifting  the  comonad  or  monad  using  a  distributive  law 
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hb 


TB 

Figure  13:  Proof  that  e'B  of*'  =/. 

exists  a  Kleisli  cotriple  (G\  e',  -+)  on  the  Kleisli  category  /C(T)  defined  as  follows: 

•  For  all  objects  A,  G'A  is  the  object  GTA. 

•  For  all  objects  A,  eA  :  GTA  —  TA  is  cta- 

•  For  all  morphisms  f  :  GTA  —  TB,f  *  :  GTA  —  TGTB  is  the  morphism  i]c,TB°f  *■ 

Proof  The  proof  involves  using  straightforward  diagram  chasing  to  show  that  the  three  conditions  specified 
in  section  4  are  satisfied.  Figure  13  contains  a  diagram  proving  that  for  all /  :  GTA  —  TB.  c'gof*  =f  □ 

Given  the  above,  we  can  construct  a  lifted  comonad  {G'.e'.b1)  from  the  lifted  Kleisli  cotriple  (G'.d 
It  can  easily  be  shown  by  simplifying  the  definition  given  in  section  4  that  the  resulting  comonad  is  defined 
as  follows: 

•  For  all  objects  A,  G'A  is  the  object  GTA 

•  For  all/  :  A  —  TB,  G'f  :  GTA  —  TGTB  is  t)gtb  0  CIps  o  Tf ) 

•  For  all  objects  A,  e'A  :  GTA  —  TA  is  ija 

•  For  all  objects  A,  S'A  :  GTA  —  TGTGTA  (  =  T(G')*A)  is  tjctgta  0  G^gta  0  ^ta 

We  can  now  construct  the  Kleisli  category  A-'(G')  from  K'(T).  Again  it  is  straightforward  to  show  that  the 
resulting  category  has  the  form 

•  Objects  of  /C(G')  are  the  same  as  for  C. 
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GTA 


Gt}gta 


GTGTA 


Vgtgta 


TGTGTA 


f>TA 


g2ta 


T  T 

Figure  14:  Proof  that  g  o  G'f  o  SA  =  g  o  Gf  o  6TA.  The  upper  part  of  the  diagram  represents 
T  T 

g  o  ( G’f  o  6a)  =  hc  °Tg  o  hgtb  0  Tt]gtb  0  TGhb  0  TGTf  o  ijgtgta  0  G^gta  0  &ta- 


Q*  ^ 

•  A  morphism/  :  A  B  is  a  morphism /  :  GTA  —  TB  in  C. 

•  For  all  objects  A,  the  identity  morphism  on  A,  id^  ,  is  =  €ja  ■ 

Gf  G'  Gf  T  T 

•  For  all/  :  A  -*  B  tmd  g  :  B  — *  C,  their  composition  g  o  /  is  g  o  G'f  °  f>'A  =  g  °  Gf  o  STA. 

T  T 

Figure  14  contains  a  diagram  proving  that  g  o  G'f  o  b'A  =  g  o  Gf  o  6TA. 

Using  similar  definitions,  we  can  also  construct  a  lifted  monad  ( TA ,  t)a,h'a)  over  the  Kleisli  category 
IC(G)  and  then  form  the  Kleisli  category  IC(T).  It  is  straightforward  to  show  that  they  have  the  following 
forms: 


•  For  all  objects  A ,  TA  is  the  object  TGA 
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(-  p  type 

1-  t  type 

F  Tt  type 

h  r  type 

x  :  t  he:  dom(p) 

x :  r  h  x  :  t 

x  :  t  h  pie) :  ran(p) 

x  :  t  h  e  :  t' 

x  :  r  h  e  :  Tt' 

x  :  r  h  [e]  :  Tt1 

x  :  t  h  p(e)  :  t' 

x:  t  \-  e i  :  rj 

x\  :  t\  h  e2  :  n 

x  :  r  I-  let  xi  ■<=  «i  in  e2  :  r2 


Figure  15:  Typing  rules  for  simple  programming  language 

•  For  all/  :  GA  -*  B,  Tf  :  GTGA  -»  TGB  is  T(G/  o  6A)  o  ercA 

•  For  all  objects  A,  rfA  :  GA  — *  TGA  is  tjga 

•  For  all  objects  A,  :  GTGTGA(=  G(7y)2A)  —  TGA  is  pca  0  Tijga  0  ^tgtga 
and 

•  Objects  in  £(7*)  are  objects  in  C. 

•  A  morphism  /  :  A  — ►  B  is  a  morphism  f  .GA  —  TGB  in  C. 

•  For  all  objects  A,  the  identity  arrow  on  A,  id^  is  rfA  =  tjga- 

V  T  T 

•  For  all/  :  A  —  B  and  g  :  B  —  C  their  composition  g  o  /  is  jiGc  °Tg  of 


8.  Examples  with  monadic  languages 

To  apply  some  of  these  constructions,  let  us  look  at  the  “simple  programming  language”  described  in  [14], 
with  the  following  syntax: 

r  ::=  p  |  Tp 

e  ::=  x  |  p(e)  |  [e]  j  p(e)  |  let  x  <s=  e\  in  ei 


Here  p  ranges  over  a  set  of  atomic  types,  x  over  a  set  of  variables,  and  p  over  a  set  of  constant  function 
symbols.  Note  that  expressions  contain  exactly  one  free  variable. 

The  typing  rules  for  this  language  are  listed  in  figure  15,  consisting  of  definitions  for  the  judgements 
I-  r  type  (denoting  a  valid  type)  and  x  :  r  F  e  :  r'.  For  each  constant  p  we  assume  a  given  domain  type 
dom (p)  and  a  range  type  ran(p). 
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x : 


x  :  t  h  e  :  t' 
x  :  t  he  =T>  e 

x  :  r  he;  =T'  e2 
x :  r  h  e2  =T‘  £1 

x  :  r  I-  e\  =T<  e 2 
x:t\-  [e\]  =tt‘  [e2\ 

x:t  e  :  r1 
x  :  t  h  p([e])  =T<  e 

x  :  t  h  el tt‘ 
x:t\-  [/i(e))  =Tt'  e 

_ x  :  t  e  :  r' _ 

r  let  xi  <=  e  in  x\  =T<  e 

x  :  r  h  t\  :  Tt 


x  :  t  h  e\  =T>  e2  x  :  r  I-  e2  sr<  e3 
x  :  r  t-  ej  =T>  e3 

x  :  t  h  e\  =dom (p) 

X  :  T  V  p{e  1)  =nm(p)  p(e2) 

x  :  t  H  e\  =Tti  e2 


: :  r  h  ji(«i)  =T»  p(e2) 


xiThei  =r,e,  -tj 

r  t-  let  jti  <=  in  e2  =r;  let  jci  <$=  e', 

_ x:rhr  dom(p) _ 

*  :  r  I-  p(e)  =mn</>)  let  xi  <=  e  in  p(xi) 

_ x:rh  e  1  [T|  x\  :rx\-  e2:  t2 _ 

x  :  r  f-  let  *1  4=  £|  in  <?2  =r2  kiAik: 

*1  :  t|  H  g2  :  r2  jc2  :  r2  I-  e3  :  r3 _ 

- -  1  " —  in  (let  x2  <=  e2  in  e3) 


.ri  :  r,  h  e2  =ti  e’2 


in  e\ 


_ x  .  T  r  e,  xt  .  r,  r  e2  :  i _ 

r  I-  let  x2  <=  (let  x  1  •*=  e\  in  e2)  in  e3  =rj  let  xx  <t=  e\ 


Figure  16:  Equivalence  rules  for  simple  programming  language 


I-  r  type 
x\  t\-  x[t 


x  :  r  h  e\  =T>  e2  x  :  t  \-  e\  \T> 
x  :  t  h  e2  lT' 


x  :  r  h  e  :  r' 
x  :  r  h  [e]  [Tt> 


x  :  t  h  e[r,  X\\T\\-<t> 
x:rh  [e/x\]<t> 


where  <j>  is  one  of  e\  =T<  e2,  e\  :  r',  or  e\  tr-. 


Figure  17:  Existence  assertion  rules  for  simple  programming  language 
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The  operational  behavior  of  the  language  is  described  by  an  equivalence  relation  x  :  r  I-  e  =T>  e'  (see 
figure  16)  and  an  existence  relation  x  :  r  I-  e  [r>  (see  figure  17).  The  existence  relation  determines  whether 
or  not  an  expression  can  be  considered  to  have  the  form  [e]. 

The  denotation  semantic  functions  considered  for  this  language  will  all  interpret  types  as  objects  and 
typing  judgments  as  morphisms  in  some  category.  A  semantic  function  is  sound  if 

1.  whenever  x  :  r  I-  e\  =T<  e2 ,  the  meaning  of  x  :  r  F  e\  :  t'  is  equal  to  the  meaning  of  x  :  r  F  e2  :  t' 

2.  whenever  x  :  r  he  [T»,  there  exists  a  unique  morphism  h  from  the  meaning  of  r  to  the  meaning  of  t' 
such  that  the  meaning  of  x  :  r  I-  e  :  r'  equals  q  o  h. 


8.1.  Extensional  semantics 

For  a  category  C  with  a  monad  (T,  77,  p)  we  define  the  extensional  denotational  semantics,  taken  from  [  1 4], 
for  this  language  as  follows: 

•  For  each  base  type  p,  let  Ap  be  some  object  in  C. 

•  If  r  =  Tt' ,  let  At  =  TAr>. 

•  For  each  p,  let  fpj  be  a  morphism  from  Adom(;,)  to  TA^p). 

•  For  each  judgment  x  :  r  h  e  :  t',  let  Mix  :  r  he:  r'fl  be  a  morphism  from  Ar  to  TAt>  (i.e.  a 
morphism  from  AT  to  Ar<  in  the  Kleisli  category),  defined  inductively  as  follows: 

Mix  :  t  I-  x  :  rj  =  r/Ar 

=  <r 

Mix  :  r  h  p{e)  :  ran(p)J  =  pAmlpt  o  1\pl  o  Mix  :  r  he:  dom(p)B 

=  TJp]  0  M]x  :  t  h  e  :  dom(/>)| 

Mix  :  r  h  [e]  :  Tt']  =  °  Mix  :  r  h  e  :  r' ] 

Mix  :  r  I-  p(e)  :  r'|  =  pAr,  o  M]x  :  r  h  e  :  Tt'] 

Mix  :  t  h  let  jci  <=  e\  in  ei  '■  tt] 

=  ^Ar,  o  TMlx\  :  Tt  h  ez  :  rij  o  Mix  :  t  h  e,  :  r,  ] 

T 

=  M lx\  :  t\  F  ei  :  t2]  0  .Vllx  :  r  F  e\  :  t\  J 


Moggi  in  [14]  showed  that  if  the  monad  satisfies  the  mono-requirement,  namely  if  rjA  is  a  monomorphism 
for  every  object  A,  the  above  semantics  is  sound.  It  is  easy  to  see  [14]  that  all  the  monads  given  in  this  paper 
satisfy  the  mono-requirement. 


8.2.  Intensional  semantics 

Suppose  we  have  a  category  C  with  both  a  monad  (T,  q,  p)  and  a  comonad  (G,  (.  &}.  It  is  easy  to  show  that  if 
a  monad  (T,  q,  p)  satisfies  the  mono-requirement  then  so  do  the  lifted  monads  (T,  fj.  ft)  and  (T,  if.  p').  We 
can  then  use  the  extensional  semantics  above  to  define  an  intensional  semantics  by  starting  with  the  Kleisli 
category  K(G)  instead  of  C  and  using  a  lifted  monad  instead  of  the  original.  Thus  we  get  the  following  two 
intensional  semantics: 
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Mix  :  t  x  :  t}gj  =  J^c.r 

=  Tj  G.T  O  €  c,T 
AX  T  T 

=  \d% 

Ar 

G  *  G 

Mix  :  r  I-  p(e ) :  ran(p)lG,r  =  ft  G.T  O  TlpJcj  o  Mix  :  r  l-  e  :  dom(p)JGT 

=  Pran(p)  0  7Ip]!g  t°°act  0  GM lx  :  r  h  e  :  dom(p)lGr  o  S  g.t 

n&mlp)  'r 

=  Wo, 7  °  Mix  :  t  h  e  :  dom(p)lGT 
Mix  :  t  h  [e]  :  Tt'\gj  =  r\Tfcj  o  Mix  :  t  Y-  e  :  t' }gt 

=  t)tag,t  o  Mix  :  r  H  e  :  r'JG  7- 

M  I*  :  r  F  p(e) :  r']|Gir  =  p^G.r  o  MI*  :  r  h  «  :  Tt’\gj 

r1 

=  p.G.r  o  MI*  :  r  t-  e  :  Tt'\g  t 

t' 

Mix  :  r  h  let  *i  <t=  in  e 2  :  r2lGr 

G  ^  C7 

=  u.c.r  0  TM|jci  :  rt  F  e2  :  r2] \G  7  o  MI*  :  r  F  ej\\GT 
^r2 

=  pag.t  o  r.Vffjti  :  T\  f-  e2  :  r2JG7-o  o^gt  o  CM  I*  :  r  h  et  :  r|J] GTo  6ag.t 

G.T  1 

=  MI*i  :  T|  f-  e2  :  r2JGi7-  0  MI*  :  t  I-  e\  :  r,  JG<r 


Figure  18:  Denotation^  semantics  using  the  monad  (T.  17,  ft) 

1 .  Using  the  lifted  monad  (T,  p,  p)  (thus  assuming  the  existence  of  a  distributive  law)  we  define 

•  For  each  base  type  p,  A^J  =  Ap,  and  for  type  r  =  Tr\  A^-T  =  TA<f;T  =  TA Gr;T . 

G  T  G  T 

•  For  each  constant  p,  let  IpJG.r  be  a  morphism  from  GAdom[p)  to  TAtan(p). 

•  For  each  type  judgement  *  :  r  h  e  :  r\  let  Mix  :  r  h  e  :  r'  JG  r  :  GA^  T  —  TA^;T  be  defined  as 
shown  in  figure  18. 

2.  Using  the  lifted  monad  (7y,  p',  p')  we  define 

•  For  each  base  type  p,  let  Avp  -  Ap,  and  for  r  =  Tt',  let  A7}  =  T Arr,  -  TGAvt,. 

•  For  each  constant  p,  let  \p\r  be  a  morphism  from  GA%onip)  to  TGA^ip). 

•  For  each  type  judgement  *  :  r  (-  e  :  r\  let  Ml*  :  r  F  e  :  t'Iv  :  GA^  —  TGA £  be  defined  as 
show  in  figure  19. 

These  two  semantics  are  clearly  sound;  they  are  essentially  the  extensional  semantics  using  different  base 
categories  and  monads,  and  all  such  semantics  are  sound  whenever  the  monad  satisfies  the  mono-requirement. 

One  more  semantic  function  can  be  derived  for  this  language  by  taking  the  original  semantics  and 
directly  adding  a  comonad  to  get  a  semantic  definition  in  the  other  non-distributive  Kleisli  category,  where 
a  morphism  from  A  to  B  is  a  morphism  from  GTA  to  TB  in  the  original  category. 

•  For  each  base  type  p,  let  A°p  =  Ap,  and  for  r  =  7r',  let  A®  =  TA%. 
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Mix  :  r  I-  x  :  t\v 


=  nGAr 

=<r 

G  G 

Af|[.r  :  r  h  p(e)  :  ran^Jr  =  /z' '  r  o  7y|[/>Jr  o  A1  j[jr :  r  I-  e  :  dom(/>)Jr 

Aran(p) 

=  PrAv  0  T\P\v  o  Mix  :  t  \r  e:  dom(p)])r 

ranOJ) 

V 

-  lp\r  0  M  lx :  t  h  e  :  dom(p)|7> 

Mix  :  r  h  [e]  :  Tt’Jv  =  rf  p  o  Mix  :  r  he:  r'  Jr 

7  r' 

~  Vgtga1*  0  GMlx  -.The:  t’  |r  o  SAr 

T 1  T 

Mix  :  r  I-  p(e) :  t'Jt*  =  p'  j  M[x  :  t  e  :  Tt'] 

Ar> 

-  pGAr  o  TeTGAr  o  Mix  :  r  h  e  :  Tt’ Jr 

r 1  r1 

Mix  :  r  I-  let  x\  <=  e\  in  e2  :  t2\t 

G  G 

=  p'  P  0  7UM[a:i  :t\  h  e2  :  r2 |r  o  Mix  :  t  h  et  :  rilr 
Ar2 

=  pGAp  o  TM\x\  :  T\  h  e2  :  t2\t  o  ,V1|jc  :  t  \-  e\  :t\\v 

p 

-  Mix i  :  r\  h  e2  :  r2 lv  o  Mix  :  r  h  e i  :  r|]]r 
Figure  19:  Denotation^  semantics  using  the  monad  (V,  rf,  p') 

•  For  each  constant  p,  let  lplG<  be  a  morphism  from  GTA®onip)  to  TA^n(p) 

*  For  each  judgment  a:  \  t  \-  e  \  t' ,\eX  M\x  .  t  e  \  t'] \G,  :  GTA^'  —  be  defined  as  shown  in 
figure  20 


Unfortunately,  this  semantics  is  not  sound  (x  :  r  h  x  [T  is  false).  This  is  because  we  lack  control 
over  the  monad  part  of  GTA.  If  instead  we  restrict  GTA  to  the  range  of  GqA  we  can  get  the  following 
“semi-soundness”  property: 


Theorem  11  For  all  expressions  e,  e\,  and  e2  the  following  two  properties  hold: 

/.  Ifx  :  t  \-  e\  =T<  e2  then  Mix  :  t  I-  e\  :  r'] 1G>  o  Gt)ag'  =  Mix  :  r  F  e2  :  t'\g<  o  Gt]ag'. 

2.  Ifx  :  t  h  e  It'  then  there  exists  an  h  :  GA ^  — ►  A^',  such  that  Mix  :  r  he:  r'|G.  o  GqAc  =  qAc  o  h. 

Proof.  By  structural  induction  on  e ,  using  as  a  substitution  lemma 

Mix:  Th  [e/x]e’  :  r"jG,  =  M(jc  :  r'  F  e'  :  r"jG.  o  GMlx  :  r  h  e  :  t%,  o  6tag- 
whenever  x  :  r  I-  e  :  r'  and  x  :r'  V  e' :  t".  □ 
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M[x  :  t  h  x  :  r JC/  =  tTAc 

=4 

Mix  :  r  h  p(e )  :  ran(p)JG.  =  i[plG/  o  GM{x  :  r  he:  dom(/>)]|G<  o  iwc, 

=  8/Ig'  0  f>TA°' 

Mix  :  t  \-  [e]  :  Tt' |g<  =  tjtac<  o  Mix  :  t  e  :  r'Jc» 

.Ml* :  t  I-  p(e)  :  r'|G>  =  /i4C/  o  .Ml*  :  r  h  e  :  7V]|G< 

r1 

Mix :  r  (-  let  *i  <$=  g!  in  e2  :  r2]]G< 

=  Mix i  :  r(  h  e2  :  T2|G/  o  G.M[.x  :  r  t-  :  rilc'  0  ^t-ac' 

C/^ 

=  A4I*i  :  T)  h  e2  :  r2]G<  o  >f|*  :  r  h  ei  :  T|]|g< 

Figure  20:  Denotational  semantics  using  the  comonad  (G',t\  6') 

8  J.  Relating  intensional  and  extensional  semantics 

For  all  comonads  ( G ,  e,  S  )  there  is  an  (adjoint)  pair  of  functors  F  :  C  —  A 2(G)  and  U  :  IC(G 

the  Kleisli  category  fC(G)  to  the  underlying  category,  where 

•  For  all  objects  A,FA-A 

•  For  all/  :  A  —r  B,  Ff  =;  eA  o  Gf  ~f  o  eA 

•  For  all  objects  A,  UA  ~  GA 

•  For  all  a  :  GA  — <•  B,Ua  =  Gao  SA. 

(see  [2]  and  [6]).  There  is  also  a  similar  pair  of  functors,  of  course,  for  monads. 

For  some  comonads  there  is  a  much  closer  relation: 

Definition  S  A  computational  comonad  (G,  e,  <5,  -y)[6]  is  a  comonad  (G.  e,  6)  plus  a  natural  transformation 
7  :  /  -^  G  such  that 

•  (a  o  7a  =  idA 

•  fiA  o  7a  =  GlA  0  1a  (=  &A  O  7ga  by  naturality) 

Whenever  (G,e,  6, 7)  is  a  computational  comonad,  then  there  is  another  functor,  H  :  /C(G)  —  C  defined 
by 

•  HA  =  A 

•  For  a  :  GA  A,  Ha  =  a  o  7a- 
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Figure  21:  Properties  of  7  for  a  computational  comonad 

From  this  we  can  define  a  family  of  relations  ~a,b'.  if  a  :  GA  -*  B  and  /  :  A  —  B  then  a  ~a.b  f 
whenever/  -  Ha  =  a  o  -yA  (the  subscripts  will  be  dropped  when  A  and  B  are  understood).  We  can  also 
define  two  functions  alg  and  fun  as  the  morphism  parts  of  the  functors  F  and  H  respectively.  When  we  use 
comonads  to  represent  intensional  semantic  behavior,  fun  takes  an  extensional  function  and  give  a  default 
intensional  algorithm,  and  alg  takes  an  algorithm  and  returns  its  extensional  behavior  (for  further  details  see 
[7]). 

All  of  the  comonads  given  in  the  paper,  if  we  assume  one  very  general  extra  condition,  are  computational, 
with  7  defined  as  follows: 


Product  comonad  (X,  it  1,6):  Assume  that  there  exists  at  least  one  morphism  from  1  to  X.  Then  for  all 
objects  A,  and  for  all  morphisms  x  :  1  —  X,  7^  =  {icU,xo!A).  For  Cont,  given  x  e  X  and  for  all 
objects  A,  7 \  -  Xa.(a.x). 

Exponentiation  comonad  (V.val.pre):  For  all  objects  A,  let  yA  =  curry(7T|).  For  Cont,  ~A(a)  =  Xv.a. 

Strict  path  comonad  ( Vs,sval,spre):  For  all  objects  A,  ~jA  =  Xa.a*,  essentially  the  same  definition  as  the 
one  for  exponentiation. 


8.4.  Relating  IC(G,  T)  to  /C(7) 

Theorem  12  Let  { G ,  e,  6, 7)  be  a  computational  comonad  on  C,  ( T ,  77,  p)  be  a  monad  on  a  category  C,  and 
a  be  a  distributive  law  ofT  over  G.  If  for  every  object  A,  a  a  0  Ita  =  TfA  (figure  22)  then  the  lifted  comonad 
(G,  e,  6, 7)  is  also  computational, where  for  each  object  A,  yA  =  t)ga  0  1a- 

Proof.  By  straightforward  diagram  chasing.  Figure  23  contains  the  diagram  proving  naturality  of  7.  The 

T  T 

upper  path  represents  the  expansion  of  73  0  / .  the  lower  path  represents  the  expansion  of  Gf  o  yA.  □ 

From  the  results  of  the  previous  theorem  we  can  construct  a  lifted  pair  of  functors  (F.  H),  and  a  family 
of  relations  ~a,b  relating  the  Kleisli  category  IC(T)  to  the  doubly-lifted  category  AC(G.  T),  as  follows: 

•  For  all  objects  A,  FA  =  HA  =  A 

•  For  all /  :  A  -*  TB,  Ff  =/  l  tA  =/  o 
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TA 


Figure  22:  Condition  needed  to  lift  computational  comonad 


GA 


f 


TB 


T*GB 


l*GB 


TGB 


T  T 

Figure  23:  Proof  that  7b  °f  =  Gf  o  jA 
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•  For  all  a  :  GA  —  TB,  Ha  =  a  o  7*4  =  a  o  7*. 

•  For  all  <2 :  GA  —  TB  and  f  :  A  —  TB,  a^f  whenever /  =  Ha  =  a  o  7^. 


There  are  also  functions  alg  and  fun  as  before,  with  alg(/“ )  =/  0  eA,  and  fun(a)  =  a  o  ~A.  Note  that  all 
of  these  relations  are  the  same  as  for  the  standard  computational  comonad,  but  for  different  categories. 

All  the  comonad/monad  combinations  from  table  1  that  have  distributive  laws  also  satisfy  the  condition 
of  figure  22  except  for  the  power  set  monad  over  the  exponentiation  comonad.  It  can  easily  be  seen  why  it 
fails.  If  we  let  V  =  {1,2}  (e  =  2  and  m  =  max)  and  A  =  { a,b },  then 

a  a  0  7pa({«^})  =  ^a([1  •—  {a,b},2>~  {a.h}]) 

=  {[1  ~a,2  — h<i,2h  b],[\  ^  b, 2—  b]} 

but  PjA({a,b})  =  {7/t(a),  7A(i>)}  =  {[1  •—  a,2  >—  a],[l  b, 2  >—  6]}. 

Note,  however  that  the  lax  distributive  laws  for  the  Hoare  and  Smyth  power  domains  do  satisfy  the 
requirement  of  figure  22.  Essentially  the  closure  properties  of  the  two  power  domains  fill  in  the  elements 
missing  when  using  the  plain  power  set. 


8.5.  Relating  K,(T)  and  /C(G') 

If  we  look  at  the  lifted  comonad  G',  which  did  not  require  a  distributive  law,  the  obvious  candidate  for 
7'  :  A  — <■  TGTA  is  ~/A  =  t]gta  0  7 ta  0  Ha-  This  7',  however,  is  not  natural.  Nevertheless  we  can  relate  both 
K(T)  and  fC(G')  to  C  (actually,  the  subcategory  of  C  generated  by  the  range  of  T).  To  do  this  we  define  a  pair 
of  functors  ( Ut.Hg ),  with  UT  :  K,(T)  —  C  and  HT :  K(G')  —  C,  defined  by 

•  For  all  objects  A,  UjA  =  HcA  =  TA 

•  For  all/  :  A  —  TB,  Ujf  =  HB°Tf 

•  For  all  a  :  GTA  —  TB,  Hja  -ao  77^. 

Note  that  Uj  is  the  monad  equivalent  of  the  functor  U  mentioned  at  the  beginning  of  this  section,  and 
Hr  is  the  functor  H  restricted  to  objects  in  the  range  of  T.  Thus  if  we  let  Ft  to  be  the  functor  F  restricted  to 
objects  in  the  range  of  T,  we  then  have  that  HjFj  =  /  and  thus  HtFjU r  =  Ur- 

From  these  functors  we  can  define  a  family  of  relations  B  as  follows:  given  a  morphism /  :  A  —  TB 
in  the  Kleisli  category  and  a  morphism  a  :  GTA  —  TB  in  the  lifted  Kleisli  category,  a  ~£s/  if  and  only  if 
Hja  =  UTf ,  i.e.  if  a  o  -yTA  =  na°Tf 

For /  :  A  —  TB  and  a  :  GTA  — -  TB,  the  relation  ~ A  B  has  the  following  properties: 


•  FtVtJ  =  Fb  °Tf  o  eTA  / .  Thus  we  can  define  a  function  alg G{f )  -  /.ib  °  Tf  o  eTA  giving  us  a 
default  intensional  morphism  for  each  extensional  one. 

•  It  is  possible  that  there  is  no  morphism  /  such  that  a  ~c  / .  For  example  in  the  category  Set,  let 
E  =  {erri ,  en-2},  let  B  and  X  be  sets,  and  let  x  e  X.  Then  using  the  computational  product  comonad 
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(X,iri,^,7x).  where  for  b  €  B,  ~fB(b)  =  ( b,x },  and  the  coproduct  monad  (£,/], /i),  we  define  the 
function  a.  (B  +  E)xX~B  +  E  to  be 


a((b,x))  = 


t\(b)  b  =  i\(b) 
i2(err2)  b  =  i2{e) 


Thenforall/  :  B  —  TB, [iBoEf  (tiferri))  =  (idfl,i2}°(f +id£)02(erri))  =  i2(erri),buta(7Jt(*2(etT|)))  = 
i2(err2),  so  a  /G/. 

We  can  find  similar  examples  for  most  other  non-trivial  monads.  In  fact  if  for  every  a  there  exists  an 
/  such  that  a  ~G/,  then  t)ja  =  Tt)A  (to  see  this  let  a  =  r/TA  o  eTA)  implying  that  T2A  is  isomorphic  to 
TA. 

•  If  a  ~G/ ,  then /  =  a  o  ^TA  o  tja.  Thus  we  can  define  a  function  funG(a)  =  a  o  ~lTA  o  rjA ,  giving  us  the 
extensional  part  of  a.  Although  this  function  is  defined  for  all  a,  from  the  item  above  we  know  that  it 
may  not  be  true  that  a  G  funG(a). 

•  funG(algG(/' ))  =  /  (although  it  may  not  be  true  that  algG(funG(a))  =  a). 

•  For  all/'  :  B  —  TC  and  a  :  GTB  ~  TC,  if  a  ~G  /  and  a'  ~G  /',  then  a'  l  a  ~G  /'  o  f.  This 
means  that  alg0^'  of)  =  alg G{f')  o  alg G(f),  and  when  a  ~G  funG(a)  and  a'  ~G  fun G(a'),  then 
ftinG(a'  o  a)  =  funG(a')  o  funG(a)  (and  also  a'  o  a  ~G  funG(a'  o  a)). 


8.6.  Relating  IC(T)  and  K,(T) 

These  two  categories  are  not  related  via  a  Kleisli  construction  (actually  /C(7y)  is  (isomorphic  to)  a  full 
subcategory  of  K(T))\  there  is  thus  no  point  in  looking  for  a  version  of  7.  We  can,  however,  form  a  family 
of  relations  as  we  did  in  the  previous  section.  For  any  pair  of  morphisms  f  .  A  —  TB  and  a  :  GA  —  TGB. 
let  a  B  /  if  and  only  if  a  o  7^  =  T~/g  o / .  Note  that,  unlike  the  last  section,  the  constructions  T~,g  o  /  and 
a  o  jA  are  not  parts  of  functors,  since  the  resulting  morphisms  are  of  the  form  A  —  TGA  and  do  not  compose 
properly  to  form  a  category. 

The  family  of  relations  ~r  has  similar  properties  to  ~G:  for  all/  :  A  —  TB  and  a  :  GA  —  TGB 

•  °f  0  ca  ~r/ ,  so  again  we  can  define  a  function  alg7^ )  =  Tjg  of  o  eA  on  morphisms  in  K(T). 

•  Again  there  are  morphisms  a  such  that  there  is  no/  witho~r/.  Forexample,  inSet,  let  (X.  iT|  ,b,  7 ') 
be  the  product  comonad  from  from  the  set  { 1 , 2}  with  7^  =  A  a.  (a,  1 }  for  any  set  A,  and  let  B  be  any 
set.  Let  the  monad  fcs  the  power  set  monad  V.  Let  a  =  X(b.n).{(b.2)}.  Then  for  all  morphisms 
/  B  -  VB,  P7fl  o  f(b)  =  {{b\  1)  1  b'  e/(b)},  but  a  o  lB(b)  =  a((b.  1))  =  {(b. 2)}.  In  order  to 
guarantee  that  there  is  always  an /  such  that  a  ~G/ ,  we  must  have  that  fA  o  eA  =  idcA,  which  implies 
that  GA  is  isomorphic  to  A. 

•  If  a  ~r/  then/  =  T(g  o  a  o  -yA.  Thus  again  we  can  define  a  function  funr(«)  =  T>b  °  a  o  -m,  and 
again  funr(algr</ ))  =/ . 

•  For  all  f  :  B  —  TC  and  a'  :  GB  —  TGC ,  if  a  /  and  a1  ~r  /',  then  a'  o  a  /'  o  / 
(when  the  composition  is  well  defined).  Thus  we  know  that  alg  (f'  o  /)  =  alg  (/')  0  alg  (/)  and 
funr(a'  o  a)  =  funr(a')  0  funr(a)  whenever  a'  and  a  have  the  property  that  a'  ~r  funr(a')  and 
a  ~T  funr(a). 
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8.7.  Relating  the  intensional  and  extensional  semantics 


Theorem  13  For  all  computational  comonads  (G,  e,  h,  7)  and  all  monads  {T.  q,  p)  that  satisfy >  the  mono¬ 
requirement,  whenever  |  plcj  ~  lplfor  oil  constants  p,  it  follows  that 


A^'t  =  Ar,  and 

Mix:  r  he:  r'] |GT  ~  .Vf  [x  :  r  I-  e  :  r'j |,  i.e. 
Ad|[;c  :  r  h  e  :  r'j  =  ,-V([jc  :  r  I-  e  :  r'jGr  o 


Proo/.  That  AG,T  =  Ar  is  obvious,  since  they  have  the  same  definition.  The  rest  is  shown  by  straightforward 
induction  over  the  structure  of  e.  O 

For  the  .MU  7*  function,  we  cannot  simply  state  that  Mix  :  r  h  e  :  t'\v  ~r  Mix  :  r  F  e  :  r'J  since 
the  types  do  not  match  ( A X  j t  Ar).  All  we  need  to  do,  however,  is  add  enough  7’s  after  the  evaluation  of 
Mix :  t  F  e  :  r'j  to  match  up  the  types  and  then  we  do  get  an  equivalence.  This  is  made  precise  below: 


Definition  6  For  all  types  r,  let  r[rj  :  AT  —  A^  be  defined  inductively  by  rip\  =  id^  and  rj7rj  = 
t~/ap  j  rrtr]. 


Theorem  14  For  all  computational  comonads  ( G,e,6 . 7)  and  any  monad  ( T .  q.  p)  that  satisfies  the  mono¬ 
requirement,  FITt'I  o  M[x  :  r  h  e  :  r'l  =  ,V1(jc  :  r  I-  e  :  t'\v  07^  o  Tfr]]  whenever  for  all  constants  p. 
r[7ran(p)|  o  [p]  =  [ p\v  7  .v  o  f[dom(p)l. 


Proof.  By  straightforward  induction  on  e.  □ 

For  the  third  semantics,  M|]|G',  the  relationship  Mix  :rh«:  r'Jr;,  ~G  :  r  h  e  :  r'j  does  not 
hold  when  e  =  [e'\,  except  where  pta  =  7>M-  Since  p,\  0  7™  =  /(.a  0  7>M,  with  certain  restrictions  we  can 
relate  the  two  semantics: 


Definition  7  For  all  n  >  0,  let  pA  :  Tn+,A  —  TA  be  defined  inductively  as  follows:  pA  =  id™  and  for/i  >  0, 

pn+l  =  pnAopr-iA. 

Definitions  Amorphism/  :  Tm+)A  —  T7’*'  B  is  simple  \f  there  exists  an/ '  :  A  —  TB,  called  a  simplification 
of/,  such  that  pB  of  =  pB  oTf  o  pA. 

Note  that  for  a  :  GTA  —  TB,  if  there  exists  an  /  such  that  /  a ,  then  a  o  7™  is  simple  and  /  is 
a  simplification,  i.e.  an,  algorithm  that  has  been  built  from  a  morphism  f  :  A  —  TB  in  a  natural  way 
will  be  simple.  Also  note  that  for  all  morphisms  /  :  A  —  TB.  n  >  0  and  m  >  0 ,/  is  a  simplification  of 
pBorf  o  p%. 

An  example  (in  Set)  of  a  morphism  that  is  not  simple  is  the  set  complement  function/  .  PA  —  PA, 
f  X  =  A  -  X.  To  see  this,  suppose  that  there  existed  a  simplification  f'.A  —  PA  off .  Then  /  =  Ua  0  ^7  • 
i.e.  for  any  setX  C  A, 

/X  =  UV'W  I  *  e  X}  =  {a  e  A  |  a  4  X}. 
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This  implies  that  for  all  X  C  A,  and  all  x  <=  X,f'(x)  4  X.  By  setting  X  =  A  we  can  easily  see  that  no  such /' 
can  exist. 


Theorem  15  Let  (G,  €,  5, 7)  be  a  computational  comonad  and  (7\  7?,  p)  be  a  monad  over  a  category  C  that 
satisfies  the  mono-requirement.  Suppose  that  for  every  constant  p,  both  o  1\p\  and  ffpflc'  0 
are  simple,  with  equal  simplifications.  Then  for  all  x  :  r  t-  e  :  t', 

pTj  °  TM[x  :  r  b  e  :  r'J  =  pnA^  o  Mix  :  r  t-  e  :  r'I|G,  0  7^,^ 
where  r  =  T'p  and  r'  =  T'p'  for  base  types  p  and  p' 

Proof.  It  can  be  shown  by  straightforward  structural  induction  that  for  all  x  :  7 mp  h  e  :  T'p' ,  p-r,\  ,  0  M  \x  : 
T'p  H  e  :  T'p']  and  Mix  :  T'p  I-  e  :  Tp']G>  0  77">*y  are  both  simple  and  that  Mix  :  p  e  :  p']  is  a 
simplification  for  both,  where  e  is  formed  from  e  by  removing  all  p's  and  []’s  and  converting  any  constants 
p  to  new  constants  p,  whose  meaning  is  a  simplification  of  PAm{p)  0  Tip]  and  IpHc  0  (by  assumption 

they  have  equal  simplifications).  The  theorem  then  follows  directly.  □ 

From  the  proof  it  is  not  difficult  to  see  that  the  two  semantics  were  related  by  effectively  removing  all 
explicit  references  in  the  language  to  the  p  and  the  []  construct.  For  more  monads,  however,  there  is  no 
need  to  use  the  []  construct  to  get  a  meaningful  language.  For  example  typical  language  constructs  that 
use  the  power  set  and  power  domain  monads,  such  as  parallel  composition  and  nondeterministic  choice, 
require  only  simple  morphisms  to  be  meaningful,  even  when  adding  intensional  behavior.  Thus  we  still  have 
a  useful  relationship  between  the  intensional  and  extensional  semantics  as  we  had  for  the  other  semantic 
interpretations,  stated  in  theorems  13  and  14. 


9.  Conclusions  and  Future  Work 


The  combination  of  a  comonad  and  a  monad  using  a  distributive  law  provides  an  elegant  method  for  obtaining 
an  intensional  semantics  from  a  monadic  extensional  semantics.  It  relates  as  well  to  the  extensional  monadic 
semantics  as  the  standard  intensional  semantics  does  to  the  plain  extensional  semantics.  Unfortunately, 
there  are  monads  and  comonads  currently  of  interest  in  computer  science  that  do  not  have  distributive  laws. 
Thus  we  discussed  alternative  ways  to  combine  comonads  and  monads  without  a  distributive  law  and  have 
explored  the  more  complex  relationship  between  extensional  and  intensional  interpretations  obtained  this 
way. 

There  are  still  other  monads  and  comonads  of  interest  to  computer  science  that  were  not  explored  in  this 
paper,  such  as  the  monad  representing  con'  luations.  It  may  be  that  later  on  some  combinations  will  be 
found  that  will  be  interesting  enough  to  explore  further.  It  should  also  be  interesting  to  explore  the  uses  and 
limitations  of  the  lax  distributive  law  of  the  Hoare  and  Smyth  power  domain  monads  over  the  exponentiation 
comonads.  Also  the  language  given  in  this  paper  was  extremely  simple  and  not  particularly  useful  in  itself; 
it  mostly  exists  so  wj  _,,r>  study  monads  without  worrying  about  products;  most  of  the  Kleisli  categories 
built  over  monads  ,.o  r '  nave  products.  There  are  many  other  more  complex  languages  that  use  monads 
and  are  worth  stud;  me. 
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